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

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

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