Найти среди чисел первое большее а - VB
Формулировка задачи:
Дано а. Найти среди чисел 1+1/2, 1+1/2+1/3, 1+1/2+1/3+1/4,… первое большее а.
null
Помогите бедной девушки пожалуйста Решение задачи: «Найти среди чисел первое большее а»
textual
Листинг программы
Dim a As Single, j As Integer, sum As Single, txt
a = InputBox("a")
sum = 0
j = 0
txt = ""
Do While sum <= a
j = j + 1
sum = sum + 1 / j
Loop
MsgBox sum & Chr(13) & "1/" & j