Одноклеточная амёба каждые три часа делится на 2 клетки.Составьте алгоритм вычисления времени,через которое будет X амёб.Через паскаль с помощью цикла while.

Предыдущий
вопрос Следующий
вопрос

program AmoebaDivision;
var
X, time, count: Integer;
begin
Write('Enter the number of amoebas: ');
Readln(X);

time := 0;
count := 1;

while count < X do
begin
time := time + 3;
count := count * 2;
end;

Writeln('After ', time, ' hours there will be ', X, ' amoebas.');
end.