Question

Амёба делится каждые три часа на две клетки, сколько будет амёб через n-ое количество времени(То есть каждые три часа амёба умножается на 2)
надо составить программу решения задачи в PascalABC

Answer 1

Например так:

var

 k, n : integer;

begin

 read(n); (* вводим время в часах*)

 k:=1; (*сначала была 1 амёба*)

 while n>2 do begin

   k:= k*2;

   dec(n,3);

 end;  

 print(k);

end.