Question

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

Answer 1

var
    amoebas, t: integer;

begin
    amoebas := 1;
    t := 0;
    
    repeat
        t := t + 3;
        amoebas := amoebas * 2;     
        Writeln(amoebas, ' амеб через ', t, ' часа');   
    until t >= 24;
end.