Помогите написать программу на Delphi про четные факториалы.

Question

Помогите написать программу на Delphi про четные факториалы.

Виктор Серов Ученик (162), на голосовании 9 лет назад

Короче мне нужно написать программу, но я плохо понимаю функцию факториал.

Определить функцию, которая возвращает чётный
факториал натурального числа.

n!!=2*4*6…*n
Вычислить чётные факториалы чисел от N1 до N2, используя определённую
функцию
Например от 1 до 4:
1!! = 1 = 1
2!! = 1*2 = 2
3!! = 1*2 = 2
4!! = 1*2*4 = 8 и ответы суммировать.

ну а например 6!!= 1*2*4*6 = 48
то есть при нечетном числе мы берем предыдущий ответ.
как такое организовать? Мб кто то может написать код?

Answer 1

function fact(n: integer): integer;
var i,j: integer;
begin
i:=2;
j:=n;
while i<n do begin
j:=j*i;i:=i+2;
end;
result:=j;
end;