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

1

Ответы и объяснения

2013-04-29T19:16:04+04:00

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.