Двойной факториал - Turbo Pascal (33560)

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

N!! = N*(N–2)*(N–4)*… (N > 0 — параметр целого типа; последний сомножитель в произведении равен 2, если N — четное число, и 1, если N — нечетное). С помощью этой функции вычислить двойные факториалы пяти данных чисел.

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

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

function secondfactorial(n:integer):integer;
begin 
if n <=1 then secondfactorial:=1
else secondfactorial:=n*n*secondfactorial(n-2);
end;
var k:integer;
begin
read(k);
write (secondfactorial(k));
end.

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

В функции secondfactorial определяется двойной факториал числа n.
Если n меньше или равно 1, то возвращается 1.
В противном случае, вызывается рекурсивно функция secondfactorial для числа n-2, и результат умножается на n.
В переменной k считывается число от пользователя.
Вызывается функция secondfactorial с аргументом k.
Результат выводится на экран.