曾小桐的回答：

不行 除非你下载一个free pascal 输入以下程序 var a:array[1..10000] of integer; n,i,b:integer; begin readln(n); repeat inc(b); a[b]:=n mod 2; n:=n div 2; until n=0; for i:=1 to b do write(a[i]); end. 按下ctrl+f9运行 输入十进制数，按下回车，再按 alt+f5 就可以看到结果了

lst的回答：

1285