ТутРешу.Ру

Создать в Паскале программу подсчета произведения N последовательных…

Задание:

Создать в Паскале программу подсчета произведения 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.




Знаете другой ответ?

Отправить свой ответ