Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить сколько

Одноклеточная бактерия каждые 3 часа делится на 2 клеточки. Найти сколько амеб будет через 2, 6, 9, 12, ..., 24 часа? Составить программку в паскале с помощью цикла repeat.

Задать свой вопрос
Семён Ахметьев
2, 6, 9, 12, ..., 24 - здесь нет оплошности? 1-ая 2?
1 ответ
Var
    amoebas, t: integer;

begin
    amoebas := 1;
    t := 0;
    
    repeat
        t := t + 3;
        amoebas := amoebas * 2;     
        Writeln(amoebas, ' амеб через ', t, ' часа');   
    until t gt;= 24;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт