Question

В паскале
Составить программу вычисления факториала натурального числа
(спам-блок)

Answer 1

var

 fact : longint;

 N :integer;

begin

 fact := 1;

 readln(N);

 for var i := 2 to N do

   fact := fact * i;

 writeln(fact);

end.