Question

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

Answer 1

var k,om :integer;
begin
om:=1;
for k:= 1 to 24 do
if k mod 3 = 0 then
begin
om:=om*2;
writeln('Через ',k,' часов - ',om);
end;
end.