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

Question

Гелина

9 мая, 05:41

+1

Ответы (1)

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

Артемич · Answer 1

Var

j, n, i:integer;

begin

for i:=1 to 8 do

begin

n:=1;

for j:=1 to i do

n:=n*2;

writeln (n) ;

end;

end.