Зайдите в параметры печатания.И обычный размер убрав,добавьте новый.
Var
a,b:Integer;
Begin
Read(a,b);
if (a>b) then Writeln(b,' ',a)
else Writeln(a,' ',b);
end.
1000111001(2)=569(10)=1071(8)=239(16), 1517(10)=10111101101(2)=2755(8)=5ED(16), 11123(8)=4691(10)=1001001010<span>011(2)</span>
<span>Делишь несколько раз на 10, каждый раз определяешь остаток от деления, если остаток -0, то счетчик + 1</span>