Вычитание выполнено в шестеричной системе счисления.
Объяснение:
Мы видим в данном выражении цифры до 4. Из этого следует, что система счисления использует не менее 5 цифр. То есть, она как минимум - пятиричная. Будем подбирать по порядку системы счисления и вычислять их значения.
Пятиричная система счисления:
1. Переводим в десятичную систему счисления:
102 = 25 * 1 + 5 * 0 + 1 * 2 = 25 + 0 + 2 = 27
14 = 5 * 1 + 1 * 4 = 5 + 4 = 9
2. Вычисляем в десятичной системе счисления:
27 - 9 = 18
3. Переводим в пятиричную систему счисления:
18 = 33
Вывод: данная система счисления не подходит.
Шестеричная система счисления:
1. Переводим в десятичную систему счисления:
102 = 36 * 1 + 6 * 0 + 1 * 2 = 36 + 0 + 2 = 38
14 = 6 * 1 + 1 * 4 = 6 + 4 = 10
2. Вычисляем в десятичной системе счисления:
38 - 10 = 28
3. Переводим в шестеричную систему счисления:
28 = 44
Вывод: данная система счисления подходит.
УДАЧИ! ОБРАЩАЙТЕСЬ!
i,j,n:integer;
m: array[1..10,1..10] of integer;
flag:boolean;
sum: array[0..1] of longint;
begin
readln(n);
flag:=true;
for i:=1 to n do
begin
for j:=1 to n do
read(m[i,j]);
readln;
end;
//Проверяем строки
i:=1;
for j:=1 to n do
sum[i mod 2]:=sum[i mod 2]+m[i,j];
while ((i<n) and flag) do
begin
i:=i+1;
for j:=1 to n do
sum[i mod 2]:=sum[i mod 2]+m[i,j];
if sum[0]<>sum[1] then flag:=false;
sum[(i+1) mod 2]:=0;
end;
//Проверяем столбцы
sum[0]:=0;
sum[1]:=0;
j:=1;
for i:=1 to n do
sum[j mod 2]:=sum[j mod 2]+m[i,j];
while ((j<n) and flag) do
begin
j:=j+1;
for i:=1 to n do
sum[j mod 2]:=sum[j mod 2]+m[i,j];
if sum[0]<>sum[1] then flag:=false;
sum[(j+1) mod 2]:=0;
end;
sum[0]:=0;
sum[1]:=0;
j:=1;
for i:=1 to n do
begin
sum[0]:=sum[0]+m[i,j];
sum[1]:=sum[1]+m[n-i+1,j];
j:=j+1;
end;
if sum[0]<>sum[1] then flag:=false;
if flag then writeln('Магический');
end.