{* Задача93 *}

REM basic

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


10 INPUT "Аргумент X = {; X
}30 INPUT {Число слагаемых = {; K% { K% - целое!
}}}40 S = 1: C = 1
50 For I = 1 To K%
60 C = C / X
70 S = S + C
80 Next I
90 PRINT "Сумма ряда для "; K%; " слагаемых = "; S
100 End