Каждая бактерия делится на 2 через каждые 2 минуты. В начальный момент имеется 1 бактерия. Написать программу, определяющую сколько их будет через n минут.

Question

Бажен

4 апреля, 05:32

+5

Ответы (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.

вот так)