Для вычисления данного выражения на языке QBasic можно воспользоваться следующей программой:
После ввода натурального числа n программа вычислит и выведет на экран значение суммы заданного выражения.
Для вычисления данного выражения на языке QBasic можно воспользоваться следующей программой:
CLSINPUT "Введите натуральное число n: ", n
sum = 0
FOR i = 1 TO n
sum = sum + 1 / i
NEXT i
PRINT "Сумма равна: "; sum
END
После ввода натурального числа n программа вычислит и выведет на экран значение суммы заданного выражения.