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

Question

Информатика

Пахомий

8 апреля, 18:05

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

+3

Ответы (1)

Знаете ответ?

Лександр · 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.