произведение четных и нечетных

[leilochka777]

Дано целое число N (>0). Если N – нечетное, то вывести произведение 1*2*3*N; если N – четное, то вывести произведение 2*4*…*N. Чтобы избежать целочисленного переполнения , вычислять это произведение с помощью вещественной переменной и выводить его как вещественное число. Решать задачу с помощью оператором цикла FOR, WHILE или REPEAT.

[rubius2008]

p:=1;
if odd(n) then for i:=1 to n do p:=p*i
else for i:=1 to n div 2 do p:=p*2*i;

[Stilet]

Чтобы избежать целочисленного переполнения , вычислять это произведение с помощью вещественной переменной и выводить его как вещественное число.

А это чья бредовая идея?