Question

Дан ряд
1/2 , 1/3 , 1/4 , ... 1/25
Найти сумму ряда
(qbasic)

Answer 1

DIM S#, i%

CLS
S# = 0
FOR i% = 1 TO 25
S# = S# + 1 / i%
NEXT i%
PRINT ; "S = "; S#
END

Answer 2

Жаль, что не нравится DIM S AS DOUBLE, i AS INTEGER