Решить с цикла с постусловием в qbasic : амёба каждые три часа делится на 2 клетки. сколько будет амёб через 3,6, часа.

    Sub Main()
        Dim i As Integer
        Do
            LOCATE i
            PRINT "Через " + i + " ч. будет " + (2 ^ (i \ 3)) + " амёб"
            i = i + 3
        Loop Until (i > 24)
    End Sub

У меня даже компилятора нету, но, судя по справочнику, всё правильно:)