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

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

Question

Информатика

Евмен

4 августа, 22:51

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

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

+4

Ответы (1)

Знаете ответ?

Александр · 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.

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

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

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