Нужно в паскале ABS

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

Question

Танюра

26 октября, 11:23

+2

Ответы (1)

Знаете ответ на вопрос?

Аксён · 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.

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