Сколько чисел нужно взять в последовательности 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