Написать программу для нахождения суммы 1/sqr1 +1/sqr2+1/sqr3+…. . +1/sqr n — QBasic(Бейсик) — Справочник разработчика. Приемная комиссия

CLS
INPUT "n="; n
s = 0
FOR i = 1 TO n
    s = s + 1 / SQR(i)
NEXT i
PRINT "s="; s

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

Написать программу для нахождения суммы 1/sqr1 +1/sqr2+1/sqr3+…. . +1/sqr n — QBasic(Бейсик)