program dtb;
var cislo, i,x:integer;
  vysledek:array[1..50] of char;

begin
  read(cislo);
  i:=0;

  while (cislo>0) do begin
    inc(i);
    if ((cislo mod 2)=0) then vysledek[i]:='0'
    else vysledek[i]:='1';
    cislo:= cislo div 2;
  end;

  if i=0 then write('0')
  else for x:= i downto 1 do
         write(vysledek[x]);
  writeln;
end.