Нужно в паскале ABSОдноклеточная амеба каждые 3 часа делится ** 2 клетки. Определить...

Question

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

Comments

ок)

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.