zadach238.BAS

{* Задача238 *}

REM basic

' Рассчитать сумму. Вычисления прекратить, когда очередное слагаемое станет
' меньше e = 0.001


CLS
e = .001
Do
     i = i + 1
        d = i / (i ^ 2 + 1)     
     s1 = s1 + d
Loop Until d < e
       
        PRINT "s1 ="; s1

End