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