Даны действительное число A, натуральное число N. Вычислить: P=A(A+1)x…x(A+n-1)   напить в Паскале, как вычислить)

Вопрос от посетителя

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

Вычислить: P=A(A+1)x…x(A+n-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.