i,j:integer;
k:array [1..40] of byte;;
begin
readln(i);
if i=0 then write(0);
else
begin
  k:=0;
  j:=1;
  while i>0 do
  begin
   k[j]:=i mod 2
   inc(j);
   i:=i div 2
  end;
  for i:=j downto 1 do
   write(k[i]);
  writeln;
end;
end.