Даны натуральное число n, действительное число а. Выдать на экран последовательность чисел: а, а+1!, а+2!, а+3!, . , а+п!

@orientir · Регистрация: 16.11.2012

Author24 — интернет-сервис помощи студентам

вот есть програма которая просто виводит последовательность чисел без факториала: а, а+1, а+2, а+3, ... , а+n.
а мне нужно с факториалом.

Pascal

Uses
 CRT;
Var
 i,n:integer;
 a:real;
begin
write('N,A: ');
readln(n,a);
for i:=0 to n do
 write(a+i,'   ');
readkey
end.

Пожалуста помогите)

@Yurek · 18.12.2012, 09:42

Просто сложнейшая задача...

Pascal

program a_x_Fact;
uses
  CRT;
var
  i, n: byte;
  f: integer;
  a: real;
 
begin
  write('N, A: ');
  readln(n, a);
  f := 1;
  write(a, ', ');
  for i := 1 to n do
  begin
    f := f * i;
    write(a + f, ', ');
  end;
  readkey
end.

	18.12.2012, 09:42