Каждая бактерия делится на 2 через каждые 3 минуты. В начальный момент имеется 1 бактерия. Сколько их будет через n минут. N вводится пользователем. Составить программу с помощью цикла со счётчиком. (For счётчик:=нач. значение to конечное значение do)

Question

Памфил

1 декабря, 18:17

+1

Ответы (1)

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

Владлена · Answer 1

var n, i : integer;

b : real;

begin

readln (n);

b:=1;

for i:=1 to n div 2 do

begin

B:=B*2;

end;

writeln (b);

end.