var a:integer; s: string;
begin
readln(a);
s:='';
while a>0 do
if a mod 2=0 then s:='0'+s else s:='1'+s;
a:=a div 2;
end;
writeln(s);
end.
var a:integer; s: string;
begin
readln(a);
s:='';
while a>0 do
begin
if a mod 2=0 then s:='0'+s else s:='1'+s;
a:=a div 2;
end;
writeln(s);
end.