У исполнителя Гамма две команды, которым присвоены номера: 1. прибавь 3; 2. умножь на b (b — неизвестное - id1065809420220913 от Polllina2209 13.09.2022 04:27

Question

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

Polllina2209 · Accepted Answer

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.

MOGZ ответил