А) 84953<span> = 10</span>100101111011001, 834<span> = 1</span>101000010, 55<span> = </span>110<span>111
б) </span>1462<span> = 1</span>100110010, 71<span> = </span>111001, 634<span> = </span>110011<span>100
в) </span>E93F76<span> = </span>111010010011111101110<span>110,
</span>59D45<span> = 1</span>011001110101000101
94553<span> = 10</span>010100010101010<span>011</span>
в первом случае х идёт от 1-9 а Y от 0 до 8. шагов 9, к концу Y=8
во 2 случае
y 0 8 14 18 20 20
x 10 8 6 4 2 0
шагов 5, к концу Y=20
Ну 6 в восьмеричной и десятеричной системах исчисления будет одинаково
6(10)->6(8)->110(2)
110 получаем путем деления 6 на 2 со списыванием остатков.
<u>Бывают же задачки, которые так приятно решить в виде одной конструкции языка! )))</u>
<em>// PascalABC.NET 3.2, сборка 1456 от 26.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqInteger(ReadInteger).Select(x->x.ToString).JoinIntoString('')
.GroupBy(x->x).Select(x->(x.Key,x.Count))
.OrderBy(x->x[1]).ThenByDescending(x->x[0]).Select(x->x[0]).Println(' ')
end.
<u>Пример</u>
3
456
20
3452
6 3 0 5 4 2
<em>можно также ввести все в одной строке</em>
3 456 20 3452
6 3 0 5 4 2