Задачи в Delpfi

[Анастасия Мартынюк]

Дано натуральное число n. Вычислить n!

[Анастасия Мартынюк]

Помогите пожалуйста!!!

[danekne]

Эх, студенты, студенты...
Лови раз:

      function Factorial(n: word): LongInt;
      begin
        if n=0 then Factorial := 1 else Factorial := n*Factorial(n-1);
      end;

Лови два:

      function Factorial(n: word): LongInt;
      var
        fact: longint;
      begin
        fact := 1;
        if n=0 then exit;
        for n := 1 to n do
        fact := fact*n;
        Factorial := fact;
      end;

Оба метода имеют свои преимущества и не достатки... я бы пошел сдавать первый =)