Question

Помогите составить алгоритм

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

Answer 1

var a, i: integer;
begin
a:=1;
for i:=1 to 8 do
begin
a:=a*2;
writeln(a, ' амеб через ', i*3, ' часов');
end;
end.