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

Танюше4ка

Составить программу вычисления n! (n-факториал) по заданному натуральному n.
2 ответа

Танюше4ка

var
  Factorial, n: LongInt;
  i: Integer;
begin
  Factorial:=1;
  write('N: ');
  readln(n);
  for i:=1 to n do
    Factorial:=Factorial * i;
  writeln('N! = ', Factorial);
end.