Даны натуральные числа A и N .Вычислить A*(A+1)*...*(A+N-1)

Question

Даны натуральные числа A и N .Вычислить

A*(A+1)*...*(A+N-1)

Comments

Есть пример работы программы?

---

К сожалению,нет

---

рекурсивной функцией?

Answer 1

Var
   A,N:integer;
   P:real;
Begin
Write('A = ');
ReadLn(A);
Write('N = ');
ReadLn(N);
P:=1;
For N:= 0 to N-1 do
    P:=P*(A+N);
WriteLn('P = ',P)
End.