Найти среди чисел первое большее а - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.7 из 5
Похожие ответы