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

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

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

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

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


СОХРАНИТЬ ССЫЛКУ