Помогите составить алгоритм Одноклеточная амеба каждые 3 часа делится на 2 части. сколько амеб будет через 3,6,9...24 часа
Var a, i: integer; begin a:=1; for i:=1 to 8 do begin a:=a*2; writeln(a, ' амеб через ', i*3, ' часов'); end; end.
спасибо конечно.но мне нужен сам алгоритм,а не код программы