Вывести наименьшее из целых чисел 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

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

10 голосов , оценка 3.6 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы