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

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

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

Question

Авенир

5 сентября, 04:32

+1

Ответы (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.

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