While6. Дано целое число $$N$$ ($$> 0$$). Найти двойной факториал $$N$$: $$N!! = N*(N-2)*(N-4)*…$$ (последний сомножитель равен 2, если $$N$$ — четное, и 1, если $$N$$ — нечетное). Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной переменной и вывести его как вещественное число.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
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. |
Другие задачи из раздела While можно посмотреть здесь.
N выводить в конце не надо
Поправил.