ответ: (в начале текст испорчен, непонятно из какой системы перевоить)
36₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 0*2³ + 0*2⁴ + 1*2⁵ = 100100₂
197₁₀ = 5*8⁰ + 0*8¹ + 3*8² = 305₈
681₁₀ = 9*16⁰ + 10*16¹ + 2*16² = 2A9₁₆
100100110101₂ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ + 1*2⁵ + 0*2⁶ + 0*2⁷ + 1*2⁸ + 0*2⁹ + 0*2¹⁰ + 1*2¹¹ = 2357₁₀
2357₁₀ = 5*8⁰ + 6*8¹ + 4*8² + 4*8³ = 4465₈
1011011₂ = 1*2⁰ + 1*2¹ + 0*2² + 1*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ = 91₁₀
91₁₀ = 3*8⁰ + 3*8¹ + 1*8² = 133₈
245₈ = 5*8⁰ + 4*8¹ + 2*8² = 165₁₀
165₁₀ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ = 10100101₂
573₈ = 3*8⁰ + 7*8¹ + 5*8² = 379₁₀
379₁₀ = 1*2⁰ + 1*2¹ + 0*2² + 1*2³ + 1*2⁴ + 1*2⁵ + 1*2⁶ + 0*2⁷ + 1*2⁸ = 101111011₂
1BA7₁₆ = 7*16⁰ + A*16¹ + B*16² + 1*16³ = 7079₁₀
7079₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ + 1*2⁸ + 1*2⁹ + 0*2¹⁰ + 1*2¹¹ + 1*2¹² = 1101110100111₂
ACE₁₆ = E*16⁰ + C*16¹ + A*16² = 2766₁₀
2766₁₀ = 0*2⁰ + 1*2¹ + 1*2² + 1*2³ + 0*2⁴ + 0*2⁵ + 1*2⁶ + 1*2⁷ + 0*2⁸ + 1*2⁹ + 0*2¹⁰ + 1*2¹¹ = 101011001110₂
B68₁₆ = 8*16⁰ + 6*16¹ + B*16² = 2920₁₀
2920₁₀ = 0*8⁰ + 5*8¹ + 5*8² + 5*8³ = 5550₈
FE8₁₆ = 8*16⁰ + E*16¹ + F*16² = 4072₁₀
4072₁₀ = 0*8⁰ + 5*8¹ + 7*8² + 7*8³ = 7750₈
655₈ = 5*8⁰ + 5*8¹ + 6*8² = 429₁₀
429₁₀ = 13*16⁰ + 10*16¹ + 1*16² = 1AD₁₆
743₈ = 3*8⁰ + 4*8¹ + 7*8² = 483₁₀
483₁₀ = 3*16⁰ + 14*16¹ + 1*16² = 1E3₁₆
Объяснение:
В таблице указаны расстояния между соседними станциями. Значит станции для которых приведены значения являются соседними. Нужно для каждой таблицы найти все возможные маршруты и посчитать их длину.
Поиск маршрутов начинать надо со станции А.
Например из первой таблицы следует, что станция А соседствует со станциями В и Е. Станция В со станцией D, а та со станцией F. Станция Е тоже соседствует со станцией F, Но из E в F можно добраться ещё и через C.
Итого по первой таблице получается 3 маршрута.
A→B→D→F
A→E→F
A→E→C→F
расстояния берёшь из таблицы и складываешь. Получается, что длины всех трёх маршрутов равны 10. То есть не подходит.
Подобным образом проверяешь остальные таблицы.
// Внимание! Если программа не работает, обновите версию!
begin
var s:set of integer:=[];
Writeln('Вводите натуральные числа от 1 до 255, иное число завершит ввод');
repeat
var n:=ReadInteger;
if not (n in [1..255]) then break
else s+=[n]
until false;
Writeln('-'*10);
foreach var k in s do
if k.ToString.ToCharArray.Distinct.Count=1 then Print(k)
end.
Пример
Вводите натуральные числа от 1 до 255, иное число завершит ввод
24
55
68
156
222
77
8
140
500
77 8 55 222