Решить с помощью цикла с постусловием в 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 У меня даже компилятора нету, но, судя по справочнику, всё правильно:)