Var a,b,n:integer; Begin Readln(n); While (a<>n) or (b<>n) do begin Read(a); if a=n then write('1') else begin Read(b); if b=n then write('2'); end; end; end.
2*16^0+2*16^1+10*16^2=2594 (в 10-ой системе счисления)
Далее остатки от деления 2594 на 2 записываем в обратном порядке. Получаем число в 2-ой системе счисления: <span>101000100010 </span> Ответ: <span>101000100010</span>