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

Question

Мартимьян

5 сентября, 15:02

+3

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

вот так)