Найти произведение первых n последовательных чисел(Паскаль)

Question

Сергей Лазарев (Я не клон!!!) Ученик (85), на голосовании 13 лет назад

Answer 1

var i,n:integer; r:real; begin readln(n); r:=1; for i:=1 to n do r:=r*i; writeln(r:0:0); readln end.

Answer 2

proizvedenie = 1;
for i := 1 to n do
proizvedenie = proizvedenie * i ;

Answer 3

Дмитрий Макаров Гуру (2920) 13 лет назад

var k,n,proiz:integer;
begin
readln(n);
proiz:=1;
for i:=1 to n do proiz:=proiz*i;
writeln(proiz);
end.

Источник: В знак благодарности признай ответ лучшим)))