Нужно ввести ** паскале вот такую задачку:ОДНОКЛЕТОЧНАЯ АМЁБА КАЖДЫЕ 3 ЧАСА ДЕЛИТСЯ **...

Question

Нужно ввести на паскале вот такую задачку:
ОДНОКЛЕТОЧНАЯ АМЁБА КАЖДЫЕ 3 ЧАСА ДЕЛИТСЯ НА ДВЕ КЛЕТКИ. СКОЛЬКО АМЁБ БУДЕТ ЧЕРЕЗ 12 ЧАСОВ.
Использовать циклы. Заранее спасибо.

Answer 1

Var x,i:integer;
begin
x:=1;
i:=3;
while(i<12) do<br>begin
if i mod 3=0 then x:=2*x;
i:=i+1;
end;
writeln(x," амёб будет через 12 часов");
end.

Comments

Ещё скажи, что на whitespace пишешь х) Все тебя поняли, Паскаль днище

---

Что-то знакомое :D Но согласись, для ученика 5-9 класса это взрыв мозга - прога на калькуляторе :D

---

Пусть хоть на примере Паскаля чему-нибудь учатся :D Нам только в этом году C++ дали, большинство до сих пор на нём кроме хелло ворлд ничего не пишет х) И кроме меня всего трое знакомы с C заранее :D