Вывести наименьшее из целых чисел K, для которых сумма будет больше A - VB

Формулировка задачи:

)Дано число A (> 1). Вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет больше A, и саму эту сумму.

Решение задачи: «Вывести наименьшее из целых чисел K, для которых сумма будет больше A»

textual
                            Листинг программы 
                        

                            Private Sub com1_Click()
Dim k&, S#, A#
    A = Val(txtT.Text)
    
    Do
        k = k + 1
        S = S + 1 / k
    Loop Until S > A
    
    Print "K ="; k
    Print
    Print "SUMMA ="; S
End Sub
                        

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

8 голосов , оценка 3.625 из 5

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