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.