Для заданного числа N составьте программу вычисления суммы S=1+1/2+1/3+1/4+…+1/N, где N – натуральное число — QBasic(Бейсик) — Справочник разработчика. Приемная комиссия

INPUT "vvedite N ", n
FOR i = 1 TO n
    s = s + 1 / n
NEXT
PRINT s

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

Для заданного числа N составьте программу вычисления суммы S=1+1/2+1/3+1/4+…+1/N, где N – натуральное число — QBasic(Бейсик)