Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+...+1/N будет больше А, и саму эту сумму. - VB
Формулировка задачи:
1) Дано вещественное число А (>1). Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+...+1/N будет больше А, и саму эту сумму.
Спасибо за помощь!
Решение задачи: «Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+...+1/N будет больше А, и саму эту сумму.»
textual
Листинг программы
Sub Task()
Dim A As Integer, N As Integer, vSum
A = InputBox("A:")
Do
N = N + 1
vSum = vSum + 1 / N
Loop While vSum <= A
MsgBox "N = " & N & ", ñóììГ* = " & vSum
End Sub