Напишите программу вычисления следующей алгебраической суммы:1-1/2+1/3-1/4+1/5-1/6+1/7-1/8+…+(-1)в степени N-1/N — QBasic(Бейсик)

INPUT "vvedite kol-vo chlenov ryada n=", n
r = -1
FOR i = 1 TO n
    r = -r
    s = s + r / i
NEXT
PRINT "summa="; s

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