Одноклеточная амеба каждые три часа делится ** две клетки. Определить, через сколько...

Question

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

Answer 1

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

Comments

Чуть-чуть исправила программу и вышло вот так:
var x,a,h:integer;
begin
a:=1;
read(x);
while a<=x do <br>begin
a:=a*2;
h:=h+3;
end;
writeln(h);
end.
Вроде бы всё срабатывает:)

---

а да забыл а:=1

---

ну если срабатывает значит хорошо ;)