Question

Одноклеточная амеба каждые три часа делится на две клетки. Определить, через сколько часов станет более X амеб, если первоначально она была одна. (С использованием цикла, на языке Pascal)

Answer 1

Var x,a,h:integer;
begin
read(x);
while a<=x-3 do
begin
a:=a*2;
h:=h+3;
end;
writeln(h);
end.
вроде бы как то так у меня баги паскаля на компе поэтому проверить не получилось. если что попробуй убрать "-3" в 4 строке. а так должно работать.