Сколько чисел нужно взять в последовательности 1+2+3+4+…, чтобы получить число, большее чем N? - VB

Узнай цену своей работы

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

Сколько чисел нужно взять в последовательности 1+2+3+4+…, чтобы получить число, большее чем N?

Решение задачи: «Сколько чисел нужно взять в последовательности 1+2+3+4+…, чтобы получить число, большее чем N?»

textual
Листинг программы
Dim n As Long
n = InputBox("Введите N > 0")
MsgBox Int((1 + Sqr(1 + 8 * n)) / 2) & " чисел нужно взять в последовательности 1+2+3+4+…, чтобы получить число, большее чем " & n

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

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