INPUT "N=", n
s = 0
FOR i = 1 TO n
s = s + i / (i + 1)
NEXT
PRINT s
Тестирование выполнено в программе QB64 ( Скачать )
INPUT "N=", n
s = 0
FOR i = 1 TO n
s = s + i / (i + 1)
NEXT
PRINT s
Тестирование выполнено в программе QB64 ( Скачать )