Вычислить 3!+6!+4!, используя функцию вычисления факториала - PascalABC.NET

Формулировка задачи:

Вычислить 3!+6!+4!, используя функцию вычисления факториала

Решение задачи: «Вычислить 3!+6!+4!, используя функцию вычисления факториала»

Листинг программы

function Factorial(N : Integer) : Biginteger;
begin
  Result := 1;
  for var i := 2 to N do
    Result *= i;
end;
 
begin
  WriteLn(Factorial(3) + Factorial(6) + Factorial(4));
end.

Объяснение кода листинга программы

Задача программы - вычислить сумму трех чисел, используя функцию вычисления факториала.
В первой строке объявлена функция Factorial, которая принимает целочисленный аргумент N и возвращает результат вычисления факториала в типе Biginteger.
Внутри функции в цикле переменная Result инициализируется единицей.
Цикл начинается с i = 2 и продолжается до тех пор, пока i <= N.
На каждой итерации цикла значение i умножается на Result.
Результат функции вычисляется как произведение всех i от 2 до N.
В последней строке вызывается функция Factorial с аргументами 3, 6 и 4, и результат выводится на экран.
Значение функции Factorial(3) равно 6, значение функции Factorial(6) равно 720, а значение функции Factorial(4) равно 24.
Сумма этих трех чисел равна 6 + 720 + 24 = 745.
Следовательно, программа выводит на экран число 745.