Найдите произведение натуральных чисел от 1 до n

(с помощью алгоритма)

Question

Иулий

11 мая, 14:46

+5

Ответы (1)

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

Глеб · Answer 1

var prod, i, N:int;

begin

readln (N) ;

prod:=1;

for i:=1 to N do

prod:=prod*i;

writeln (prod)

end.

Найдите произведение натуральных чисел от 1 до n(с помощью алгоритма)