Question

Для заданного числа n составьте программу для вычисления
S = 1*2*3 ... *n​

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var p := BigInteger.One;

 for var i := 1 to n do

   p *= i;

 Writeln(n, '! = ', p)

end.