Одноклеточная амеба каждые три часа делится пополам. Составьте программу определения...

Question

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

Answer 1

Var
 j,n,i:integer;
begin
 for i:=1 to 8 do
 begin
  n:=1;
  for j:=1 to i do
   n:=n*2;
  writeln(n);
 end;
end.