Question

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

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. 

Answer 2

Вы можете составить программу на языке программирования, используя цикл со счётчиком, чтобы вычислить количество бактерий через n минут. Вот пример программы на языке Pascal, использующей цикл for:

pascalCopy code
program BacteriaDivision;
var
  n, bacteriaCount, i: integer;
begin
  writeln('Введите количество минут (n): ');
  readln(n);

  bacteriaCount := 1; // Начальное количество бактерий

  for i := 1 to n div 3 do
  begin
    bacteriaCount := bacteriaCount * 2; // Каждые 3 минуты бактерии делятся на 2
  end;

  writeln('Через ', n, ' минут(ы) будет ', bacteriaCount, ' бактерий.');
end.

Эта программа сначала запрашивает у пользователя количество минут n, затем использует цикл for для моделирования деления бактерий каждые 3 минуты. После завершения цикла программа выводит количество бактерий через указанное количество минут.