Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+...+1/N будет больше А, и саму эту сумму.

@Мила=) · Регистрация: 15.05.2010

1) Дано вещественное число А (>1). Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+...+1/N будет больше А, и саму эту сумму.
Спасибо за помощь!

@Vlanib · 30.09.2011, 05:56

1.

Visual Basic

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

@Мила=) 4 / 4 / 0 Регистрация: 15.05.2010 Сообщений: 39
		1
	Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+...+1/N будет больше А, и саму эту сумму. 29.09.2011, 22:37. Показов 1163. Ответов 1 Метки нет (Все метки) 1) Дано вещественное число А (>1). Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+...+1/N будет больше А, и саму эту сумму. Спасибо за помощь! __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы