1 2 3 4 5 6 7 8 9 10 11 12 13 14
var n :integer; procedure QW(x :integer); begin if !(x = 0) then begin QW(x div 2); write(x mod 2); end; end; begin read(n); QW(n); end.