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

Question

Информатика

Виленина

16 июля, 04:11

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

+2

Ответы (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.