{* Задача95 *}

REM basic

' Вычислить сумму членов ряда. Суммировать до тех пор, пока разность между текущей и предыдущей суммами больше 0.001. Вывести сумму, последнее слагаемое, вошедшее в сумму, и его номер. Ряд имеет следующий вид:
' (1^2*5)/(2*4) + (2^2*6)/(2*4*6) + (3^2*7)/(2*4*6*8) + ...


10 CLS
20 i = 1
30 x = 5 / 8
40 s = 5 / 8
50 znam = 8
60 While x > .001
70 pred = x
80 i = i + 1
90 znam = znam * 2 * (i + 1)
100 x = (i + 4) * i ^ 2 / znam
110 s = s + x
120 Wend
130 PRINT "Сумма ="; s - x
140 PRINT "Последнее слагаемое ="; pred
150 PRINT "Номер последнего слагаемого ="; i - 1
160 End