Напишите функцию, которая вычисляет факториал натурального числа N (PascalABC)

Чтобы вычислить факториал натурального числа $N$ в языке PascalABC, можно воспользоваться следующим подходом. Факториал числа $N$ определяется как произведение всех чисел от 1 до $N$. То есть:

Пример функции для вычисления факториала на PascalABC:

pascal
Копировать код
function Factorial(N: Integer): Integer;
var
  i, result: Integer;
begin
  result := 1;  // Начальное значение факториала (1! = 1)
  
  for i := 1 to N do
    result := result * i;  // Умножаем на текущее число
  
  Factorial := result;  // Возвращаем вычисленный факториал
end;

Пояснение:

1. Функция Factorial принимает одно целое число $N$.

2. Внутри функции инициализируется переменная result, которая хранит промежуточный результат вычисления факториала. Изначально она равна 1 (так как $1! = 1$).

3. Далее используется цикл от 1 до $N$, на каждой итерации значение переменной result умножается на текущее значение $i$.

4. В конце функция возвращает результат вычисления факториала.

Пример использования функции:

pascal
Копировать код
begin
  WriteLn(Factorial(5));  // Выведет 120 (5! = 120)
end;

Этот код вычисляет факториал числа 5 и выводит его на экран.