Вычислить б) A=2/1*3 + 2/2*4 + 2/3*5 + … + 2/n*(n+2),где n — дано.- QBasic(Бейсик)

REM program
CLS
 
A = 0
 
INPUT "Enter n: ", n
 
FOR i = 1 TO n
    A = A + 2 / (i * (i + 2))
NEXT i
 
PRINT "Result: ", A
 
END

Тестирование выполнено в программе QB64 ( Скачать )

Вычислить б) A=2/13 + 2/24 + 2/35 + … + 2/n(n+2),где n — дано.- QBasic(Бейсик)