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

Question

Информатика

Светозара

2 декабря, 01:46

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

+2

Ответы (1)

Знаете ответ?

Рим · 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.