У исполнителя Гамма две команды, которым присвоены номера: 1. прибавь 3; 2. умножь на b (b — неизвестное натуральное число; b ≥ 2 Выполняя первую из них, Гамма увеличивает число на экране на 3, а выполняя вторую, умножает это число на b. Программа для исполнителя Гамма — это последовательность номеров команд. Известно, что программа 11211 переводит число 5 в число 105. Определите значение b

9

Объяснение:

Есть число 5. Последовательность команд : 11211

5+3 = 88+3 = 11Теперь выполним команды справа налево: 105-3 = 102102-3=99У нас осталась команда, которая умножает на неизвестное натуральное число, и уавнение подобного рода : 11*b=99, отсюда получаем, что b=9

В начальный момент времени  количественный состав некоторого биологического вида равен  единиц. Требуется сделать прогноз численности  данной популяции при  для двух случаев:

относительный темп прироста популяции не зависит от ее численности и равен постоянной величине  (свободный рост популяции), 

относительный темп прироста популяции уменьшается линейно с увеличением ее численности и равен величине (ограниченный рост популяции). 

С этой целью необходимо 

составить математическую модель свободного роста популяции в виде линейного дифференциального уравнения, найти аналитическое решение уравнения; 

составить математическую модель ограниченного роста популяции в виде дифференциального уравнения Бернулли, определить аналитическое и численное решение уравнения при заданных начальных условиях, показать графически приближенное совпадение полученных решений; 

привести графическую иллюстрацию изменения численности для моделей свободного и ограниченного роста популяции;сделать выводы по работе. 

Const
  n = 5;
  m = 5;
var
  a: array[0..n, 0..m] of integer;
  i, j, imin, jmax: integer;
begin
  writeln('Матрица: ');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := Random(5) + 1;
      a[0, j] := a[0, j] + a[i, j];
      a[i, 0] := a[i, 0] + a[i, j];
      write(a[i, j] : 3);
    end;
    writeln;
  end;
  jmax := 1;
  for i := 2 to n do
    if a[i, 0] > a[jmax, 0] then
      jmax := i;
  imin := 1;
  for j := 2 to m do
    if a[0, j] < a[0, imin] then
      imin := j;
  writeln('Номер столбца: ', imin);
  writeln('Номер строки: ', jmax);
end.