type mas100_100 = array[1..100, 1..100] of integer;
var a1, a2, a3: mas100_100; i, j, m, n: integer;
procedure InitializeMatrix(var a: mas100_100; m, n: integer); var i, j: integer; begin writeln('Данные матрицы'); for i := 1 to m do begin for j := 1 to n do if handsfree then begin a[i, j] := random(30); write(a[i, j]:2, ' ') end else read(a[i, j]); writeln; end; end;
begin writeln('Введите размер матриц'); readln(m, n);
InitializeMatrix(a1, m, n); InitializeMatrix(a2, m, n);
writeln('Вывод результата'); for i := 1 to m do begin for j := 1 to n do begin a3[i, j] := a1[i, j] * a2[m + 1 - i, n + 1 - j]; write(a3[i, j], ' '); end; writeln; end;
type mas100_100 = array[1..100, 1..100] of integer;
var a1, a2, a3: mas100_100; i, j, m, n: integer;
procedure InitializeMatrix(var a: mas100_100; m, n: integer); var i, j: integer; begin writeln('Данные матрицы'); for i := 1 to m do begin for j := 1 to n do if handsfree then begin a[i, j] := random(30); write(a[i, j]:2, ' ') end else read(a[i, j]); writeln; end; end;
begin writeln('Введите размер матриц'); readln(m, n);
InitializeMatrix(a1, m, n); InitializeMatrix(a2, m, n);
writeln('Вывод результата'); for i := 1 to m do begin for j := 1 to n do begin a3[i, j] := a1[i, j] * a2[m + 1 - i, n + 1 - j]; write(a3[i, j], ' '); end; writeln; end;
202₁₀ = CA₁₆
202₁₀ = 312₈
202₁₀ = 11001010₂
Объяснение:
202₁₀ = 10*16⁰ + 12*16¹ = CA₁₆
202₁₀ = 2*8⁰ + 1*8¹ + 3*8² = 312₈
202₁₀ = 0*2⁰ + 1*2¹ + 0*2² + 1*2³ + 0*2⁴ + 0*2⁵ + 1*2⁶ + 1*2⁷ = 11001010₂