число 82 = 80 + 2 (состоит из 8 десятков и 2 единиц)
числа 6 (состоит из 6 единиц)
команда 1 увеличивает число на 1 единицу
команда 1 переводит число в новый разряд (из единиц команда получает десятки, из десятков команда получает сотни и т.д.)
следователь самый короткий путь это привести число 6 к количеству десятков в числе 82 (командой 1), затем привести полученное число в новый разряд (командой 2),потом привести полученное число к числу 82 (командой 1)
procedure MatrA(var a: mass); var i, j: integer; begin for i := 1 to n do for j := 1 to m do begin writeln('a[', i, ',', j, ']: '); readln(a[i, j]) end end;
procedure MatrB(var b: mass); var i, j: integer; begin for i := 1 to n1 do for j := 1 to m1 do begin writeln('b[', i, ',', j, ']: '); readln(b[i, j]) end end;
procedure Sum(a, b: mass; var c: mass); var i, j: integer; begin for i := 1 to n do for j := 1 to m do c[i, j] := a[i, j] + b[i, j]; end;
begin writeln('Введите n,m матрицы A'); readln(n, m); MatrA(a); writeln('Введите n,m матрицы B'); readln(n1, m1); MatrB(b); if (n1 <> n) and (m1 <> m) then writeln('Матрицы сложить нельзя') else begin Sum(a, b, c); writeln('A+B'); for i := 1 to n do begin for j := 1 to m do write(c[i, j]:1:3, ' '); writeln end end; readln; end.
11211
Объяснение:
число 82 = 80 + 2 (состоит из 8 десятков и 2 единиц)
числа 6 (состоит из 6 единиц)
команда 1 увеличивает число на 1 единицу
команда 1 переводит число в новый разряд (из единиц команда получает десятки, из десятков команда получает сотни и т.д.)
следователь самый короткий путь это привести число 6 к количеству десятков в числе 82 (командой 1), затем привести полученное число в новый разряд (командой 2),потом привести полученное число к числу 82 (командой 1)
6 + 1 = 7 (команда 1)
7 + 1 = 8 (команда 1)
8 * 10 = 80 (команда 2)
80 + 1 = 81 (команда 1)
81 + 1 = 82 (команда 1)