Вычислить двойной факториал - PascalABC.NET (25178)
Формулировка задачи:
Составьте, пожалуйста, программу для вычисления двойного факториала (2n+1)!! (например 9!!=9*7*5*3*1) и
двойного факториала (2n)!! (аналогично 10!!=10*8*6*4*2);
Решение задачи: «Вычислить двойной факториал»
textual
Листинг программы
begin
var N := ReadLnInteger('N =');
Write(N, '!! = ');
var F : Biginteger := N;
while N > 2 do
begin
N -= 2;
F *= N;
end;
WriteLn(F);
end.
Объяснение кода листинга программы
В этом коде:
- Переменная N инициализируется значением, введенным пользователем с помощью функции ReadLnInteger.
- Используется функция Write для вывода значения N и двойного факториала N!!.
- Переменная F инициализируется значением N.
- Используется цикл while для вычисления двойного факториала.
- Внутри цикла значение N уменьшается на 2.
- Значение F умножается на N.
- Когда N становится равным 2, цикл завершается.
- Значение F выводится на экран с помощью функции WriteLn.