Найти среди чисел первое большее а - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
