zadach237.BAS

{* Задача237 *}

REM basic

' Вычислить сколько раз 10^6 нужно разделить на 2, что бы
' частное было меньше 1.


CLS
s = 10 ^ 6
Do
        s = s / 2
        k = k + 1
Loop Until s < 1
        PRINT k
End