Question

Даны действительное число A, натуральное число N.

Вычислить: P=A(A+1)x...x(A+n-1)

 

напить в Паскале, как вычислить)

Answer 1

var a,p:real;

i,n:integer;

Begin

  read(a,n);

  p:=1;

  for i:= 0 to n-1 do

    p:=p*(a+i);

  writeln(p);

End.