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