Question

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

Answer 1

program gt;
var i,a:integer;
begin
read(A);
{A-начальное аол-во амеб}
for i:=1 to 5 do
begin
a:=a*2;
end;
writeln(A);
end.