задача 4 урок 21

задача 4 урок 21

Дано целое положительное число N, вычислите N! (эн факториал).

Решение

program task_4_lesson21;
function factarial(n: integer): integer;
begin
  if n = 1 then
    result := 1
  else
    result := n * factarial(n - 1);
end;
var n: integer;
begin
  readln(n);
  write(factarial(n));
  readln
end.

Консоль

7
5040