program test04;
var
i,j,a:longint;
s:array[1..32] of longint;
begin
readln(a);
j:=0;
while a<>0 do begin
inc(j);
s[j]:=a mod 2;
a:=a div 2;
end;
if j=0 then write(0) else
for i:=j downto 1 do
write(s[i]);
end.
输入：58
输出：111010