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

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

Question

Вилен

9 июля, 18:29

+1

Ответы (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(с помощью алгоритма)