Question

Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько клеток будет через 3,6,9, 12, ...,24 часа. pascal

Answer 1

Var k,i:integer;
begin
k:=1;
for i:=1 to 24 div 3 do
 begin
 k:=k*2;
 writeln(3*i:3, ': k = ',k);
 end;
end.

Результат:
  3: k = 2
  6: k = 4
  9: k = 8
 12: k = 16
 15: k = 32
 18: k = 64
 21: k = 128
 24: k = 256