Задачка для Qbasic с цикламиНомер 4

Question

Задачка для Qbasic с циклами
Номер 4

---

Answer 1

CLS
INPUT "E = "; E
S = 0
n = 1
a = 1 / ((3 * n - 2) * (3 * n + 1))
WHILE (a >= E)
S = S + a
n = n + 1
a = 1 / ((3 * n - 2) * (3 * n + 1))
WEND
PRINT "S = "; S
END