Question

Помогите составить программу на QBasic, пожалуйста.

Answer 1

CLS
INPUT "t = ", t
i = 1
c = 1 / (i * (i + 1))
S = 0!
WHILE c >= t
S = S + c
i = i + 1
c = 1 / (i * (i + 1))
WEND
PRINT "S = "; S


Пример работы программы:

t = 0.0001
S =  .9900005