Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Решите задачу в паскале используя цикл на своё усмотрение.
одноклеточная амёбы каждые 3 часа делится на 2 клетки .Определить сколько будит клеток через 3,6,9,12,15,18,21,24 часа .

Ответ оставил Гость

Var
    amoebas, t: integer;

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