zadach242.BAS

{* Задача242 *}

REM basic

' Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить через
' какое время количество клеток превысит миллион.


CLS
a = 1
Do
        t = t + 3        
        a = a * 2        
Loop While a < 10 ^ 6
       
        PRINT "Через"; t; "часов"
End