Найти произведение членов ряда - PascalABC.NET
Формулировка задачи:
Помогите составить программу для нахождения произведения n*(n+1)*(n+2)*…*(2n);
Решение задачи: «Найти произведение членов ряда»
textual
Листинг программы
begin
var N := ReadLnInteger('N = ');
var P : Biginteger := 1;
for var i := N to N*2 do
P *= i;
WriteLn('P = ', P);
end.
Объяснение кода листинга программы
В этом коде:
- В переменной N хранится число, которое считывается с помощью функции ReadLnInteger.
- В переменной P хранится число, которое инициализируется единицей.
- Используется цикл for для перебора чисел от N до N*2.
- Внутри цикла значение переменной P умножается на текущее значение i.
- После завершения цикла выводится значение переменной P с помощью функции WriteLn.