Question

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

Answer 1

program fofgogjoj;
var    
amebi:integer;    
i:integer;
begin    
amebi:=1;    
for i:=1 to 24 do      
begin      
if i mod 3 = 0 then          
begin          
Write('Время ',i,' ');          
amebi:=amebi*2;          
Write('Амебы ',amebi);          
writeln;      
end;      
end;    
end.