8288A7F₁₆
Объяснение:
1 - черная клетка;
0 - белая клетка.
Начиная с левого верхнего угла начнем кодировать клетки, двигаясь в верхнем ряду слева направо, в следующем в обратную сторону (т.е. справа налево) и так до конца.
Будет получен код в двоичной системе:
1000001010001000101001111111
Переведем в десятичную систему:
1000001010001000101001111111₂ =
= 1∙2²⁷+0∙2²⁶+0∙2²⁵+0∙2²⁴+0∙2²³+0∙2²²+1∙2²¹+0∙2²⁰+1∙2¹⁹+
+0∙2¹⁸+0∙2¹⁷+0∙2¹⁶+1∙2¹⁵+0∙2¹⁴+0∙2¹³+0∙2¹²+1∙2¹¹+0∙2¹⁰+
+1∙2⁹+0∙2⁸+0∙2⁷+1∙2⁶+1∙2⁵+1∙2⁴+1∙2³+1∙2²+1∙2¹+1∙2⁰ =
= 134217728+0+0+0+0+0+2097152+0+524288+0+0+0+
+32768+0+0+0+2048+0+512+0+0+64+32+16+8+4+2+1 =
= 136874623₁₀
136874623₁₀ переведем в шестнадцатиричную систему:
136874623₁₀ = 8288A7F₁₆
Перевод из десятичной системы в шестнадцатеричную подробнее на фото.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293
var
x, y, a, b, k: integer;
begin
k:=10000;
repeat
x:=k;
a := 0; b := 0; y := 1;
while x > 0 do
begin
if (x mod 10) mod 2 = 0
then
a := a * 10 + x mod 10
else begin
y := y * 10;
b := b * 10 + x mod 10
end;
x := x div 10
end;
a := a * y + b;
k := k + 1;
until a = 26391;
writeln(a:8, k-1:8);
end.