Question

Каждая бактерия делится на две в течение одной минуты. Начальное значение бактерий B. Сколько их станет через A минут. PascalABC

Answer 1

var

a,b: integer;

begin

 write('Введите сначала время,потом кол-во: ');

 readln(a,b);

 writeln(power(2,a)*b)

end.

Answer 2

В PascalABC вы можете использовать рекурсивную функцию для решения этой задачи. Вот пример кода, который показывает, сколько бактерий будет через A минут:

pascalCopy code
program BacteriaDivision;

function CountBacteria(A, B: Integer): Integer;
begin
  if A = 0 then
    Result := B
  else
    Result := CountBacteria(A - 1, B * 2);
end;

var
  A, B, Result: Integer;

begin
  Write('Введите начальное количество бактерий B: ');
  Readln(B);
  Write('Введите количество минут A: ');
  Readln(A);

  Result := CountBacteria(A, B);

  Writeln('Через ', A, ' минут(ы) количество бактерий будет равно ', Result);
end.

Эта программа запрашивает у пользователя начальное количество бактерий (B) и количество минут (A), а затем использует рекурсивную функцию CountBacteria, чтобы рассчитать количество бактерий через A минут. Результат выводится на экран.

Пожалуйста, обратите внимание, что в этом коде не выполняются проверки на отрицательные значения или нулевые значения для A и B. Вы можете добавить соответствующие проверки в код, если требуется.