Запишите числа в развёрнутом виде: 1233, 21(10) 1233, 2(8) 12, 3(16) 12, 3(5) числа в скобках означают основание. если ещё и с 8 с фотографии , буду прям вообще ))

1233,21(10)=1*10^3+2*10^2+3*10^1+3*10^0+2*10^-1+1*10^-2 1233,2(8)=1*8^3+2*8^2+3*8^1+3*8^0+2*8^-1 12,3(16)=1*16^1+2*16^0+3*16^-1 12,3(5)=1*5^1+2*5^0+3*5^-1

1. заметим, что такими манипуляциями нельзя поменять чётность произведения xy, где (x, y) - текущие координаты корабля. если угодно, можно представить бесконечное поле для шахмат, корабль ходит как слон - только по диагонали, поэтому цвет поля не меняется. 2. естественно "развернуть" координаты так, чтобы "горизонтальное" и "вертикальное" направления были вдоль диагоналей. это делается путем преобразования x' = x + y, y' = x - y. 3. в новых координатах корабль может ходить по горизонтали и вертикали, при этом в любую достижимую точку он придет не более чем за 2 шага. за 1 шаг он придет, если стоит в той же горизонтали или вертикали. 4. для простоты сдвинем начало координат в начальную точку, тогда точка назначения будет иметь координаты x' = (x2 - x1) + (y2 - y1), y' = (x2 - x1) - (y2 - y1) решение, pascalabc.net: begin   var inf : = openread('input.txt');   var outf : = openwrite('output.txt');   var x1, x2, y1, y2: longint;   read(inf, x1, y1, x2, y2);   if (x1 * y1 - x2 * y2) mod 2 = 0 then   begin     (x2, y2) : = ((x2 - x1) + (y2 - y1), (x2 - x1) - (y2 - y1));     if x2 * y2 = 0 then       write(outf, 1)     else        write(outf, 2);   end   else     write(outf, 0);   close(inf);   close(outf); end.

Если a, b имеют общий делитель d, то и a + b делится на d. отсюда идея: найдем наибольший делитель n, меньший n, и представим всё в виде d + (n - d). d будем искать так: найдём наименьший делитель q, не равный 1 (если число составное, он не больше корня из n), тогда d = n/q. var   q, d, n: longint;   isfound: boolean; begin   readln(n);   isfound : = false;   for q : = 2 to trunc(sqrt(n)) + 1 do     if n mod q = 0 then     begin       d : = n div q;       write(d, ' ', n - d);       isfound : = true;       break;     end;   if not isfound then     write(1, ' ', n - 1); end.