Написать программу вычисления n!

Question

Написать программу вычисления n!

Answer 1

programfactorial;  functionfact(n:integer):longint;beginif(n=0)thenfact:=1elsefact:=n*fact(n-1);  end;  varn:integer;  begin  forn:=0to16do  writeln(n,'! = ',fact(n));end.

Answer 2

var 

  n, fact: word;  //fact - факториал числа

  i: integer;

 

begin

  fact:= 1;  //Присваиваем начальное значение

  writeln('Введите число n');

  readln(n);

  for i:= 1 to n do   //Для i, равного от 1 до n умножаем значение fact на i

    fact:= fact * i;

  writeln(n, '! = ', fact);

end.

Отметь решение, как лучшее, плиз)