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

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

Question

Информатика

Кузена

12 января, 22:25

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

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

+1

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