Program t2;
var n,i,j:Longint;
s:Array [1..100] of integer;
begin
readln(n);i:=0;
Repeat
inc(i); if odd(n) then s[i]:=1 else s[i]:=0;
n:=n SHR 1;
Until n=0;
for j:=i downto 1 do write(s[j]);writeln;
end.
输入：2004 程序运行的结果是：
输出：11111010100