Вычислить выражения, используя для организации цикла операторы FOR … NEXT - QBasic (27255)

Формулировка задачи:

Вычислить выражения, используя для организации цикла операторы FOR … NEXT (значения переменной n задавать с клавиатуры). Спасибо...

Решение задачи: «Вычислить выражения, используя для организации цикла операторы FOR … NEXT»

Листинг программы

REM OTBET: 1.749792
 
CLS
INPUT "N = "; n
s = 1
 
FOR i = 1 TO n
   s = s + 1 / (i ^ 2 + 2 * i)
NEXT i
 
PRINT "S ="; s
END

Объяснение кода листинга программы

В этом коде выполняется вычисление суммы ряда, в котором каждый элемент получается как 1/i^2 + 2*i, где i принимает значения от 1 до n. Вот список действий:

Задается значение переменной n с помощью оператора INPUT.
Инициализируется переменная s равной 1.
Запускается цикл FOR для перебора значений от 1 до n.
Внутри цикла каждый элемент ряда вычисляется как 1/i^2 + 2*i.
Полученное значение прибавляется к переменной s.
После завершения цикла выводится значение переменной s с помощью оператора PRINT.