Вычислить двойной факториал - PascalABC.NET (25178)

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

Составьте, пожалуйста, программу для вычисления двойного факториала (2n+1)!! (например 9!!=9*7*5*3*1) и двойного факториала (2n)!! (аналогично 10!!=10*8*6*4*2);

Решение задачи: «Вычислить двойной факториал»

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

begin
  var N := ReadLnInteger('N =');
  Write(N, '!! = ');
  var F : Biginteger := N;
  while N > 2 do
    begin
      N -= 2;
      F *= N;
    end;
  WriteLn(F);
end.

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

В этом коде:

Переменная N инициализируется значением, введенным пользователем с помощью функции ReadLnInteger.
Используется функция Write для вывода значения N и двойного факториала N!!.
Переменная F инициализируется значением N.
Используется цикл while для вычисления двойного факториала.
Внутри цикла значение N уменьшается на 2.
Значение F умножается на N.
Когда N становится равным 2, цикл завершается.
Значение F выводится на экран с помощью функции WriteLn.