{* Задача94 *}

REM basic

' Для произвольного значения аргумента "x" (по модулю больше 1) вычислить сумму: S = 1 + 1/x + 1/x^2 + 1/x^3 + ... . Вычисления продолжать до тех пор, пока очередное слагаемое больше заданного значения Z. Вывести на экран число слагаемых K.


10 INPUT "Аргумент X (по модулю больше 1) = "; X
40 INPUT Z
50 K = 0: S = 0: C = 1
60 While C > Z
70 S = S + C
80 K = K + 1
90 C = C / X
100 Wend
110 PRINT " Для аргумента X = "; X;
120 PRINT " члены ряда больше заданного значения "; Z
130 PRINT " для "; K; " слагаемых и их сумма равна "; S
140 PRINT " Последний член ряда при этом равен "; C * X
150 End