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

Question

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.