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

Question

Любовь Лебедева

Информатика

16 февраля, 06:57

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

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Маргарита Елизарова · Answer 1

program bacterya;

var i, x, n:integer;

begin

readln (n);

x:=1;

for i:=1 to n do

if (i mod 3=0) then x:=x*2;

writeln (x); / /х - искомое число бактерий

end.