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

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