Код IT
← Каталог

Pascal / Free Pascal — типовые программы — 2.3. Рекурсия — факториал

Фрагмент из «Pascal / Free Pascal — типовые программы»: 2.3. Рекурсия — факториал.

pascal lab1140 embed URL статья в энциклопедии
Pascal main.pas 
program FactRec;

function Fact(n: integer): int64;
begin
  if n <= 1 then
    Fact := 1
  else
    Fact := n * Fact(n - 1);
end;

var
  n: integer;

begin
  ReadLn(n);
  WriteLn(Fact(n));
end.
program FactRec;

function Fact(n: integer): int64;
begin
  if n <= 1 then
    Fact := 1
  else
    Fact := n * Fact(n - 1);
end;

var
  n: integer;

begin
  ReadLn(n);
  WriteLn(Fact(n));
end.