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