Question

Нужно написать код через цикл с условием: группа While

Дано целое число N (> 0). Найти двойной факториал N: N!! = N·(N–2)·(N–4)·… (последний сомножитель равен 2, если N — четное, и 1, если N — нечетное). Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной переменной и вывести его как вещественное число.
Буду очень благодарен!!

Answer 1

Ответ:

program While6;

var

Rez :Real;

N :Integer;

begin

Write('Введите N: ');

Readln(N);

Rez:=1;

while N>=2 do

begin

Rez:=Rez*N;

N:=N-2;

end;

Writeln('Двойной факториал равен: ',Rez);

end.