Дано натуральное n. Вычислить 1/3 +1/5 +…+ 1/(2*n+1).Результат вывести на печать — QBasic(Бейсик) — Справочник разработчика. Приемная комиссия

CLS
INPUT "vvesti n ", n
FOR i = 1 TO n
    s = s + 2 * i + 1
NEXT
PRINT s

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

Дано натуральное n. Вычислить 1/3 +1/5 +…+ 1/(2*n+1).Результат вывести на печать — QBasic(Бейсик)