На какой клетке суммарное количество зерен превысит N штук, если на первую положить одно зерно, на вторую 2, на 3-ю 4 и т.д. - VB
Формулировка задачи:
В старинной легенде шах решил наградить мудреца. Мудрец попросил выдать ему в качестве награды зерно, причем количество зерен он определил так: на 1-ю клетку шахматной доски положить 1 зерно, на 2-ю клетку – 2 зерна, на 3-ю – 4 зерна, на 4-ю – 8 зерен и т. д. Составьте программу, с помощью которой можно вычислить, на какой клетке суммарное количество зерен превысит N штук. (Visual Basic)
Решение задачи: «На какой клетке суммарное количество зерен превысит N штук, если на первую положить одно зерно, на вторую 2, на 3-ю 4 и т.д.»
textual
Листинг программы
Private Sub Command1_Click()
MsgBox "На клетке с номером " & 1 + Int((Log(InputBox("Сколько зёрен") + 1.01)) / Log(2)) & " количество зёрен ПРЕВЫСИТ заданное."
End Sub