Найдите произведение натуральных чисел от 1 до n
( с помощью алгоритма )
var prod,i,N:int;
begin
readln(N);
prod:=1;
for i:=1 to N do
prod:=prod*i;
writeln(prod)
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
