Question

Найти произведение 1 • 2 • 3 • ... • n
В паскале, те а цикл

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var n:=ReadInteger;
var p:=1.0;
for var i:=1 to n do p:=p*i;
write(p);
end.