摘要: 曾小桐的回答： 不行 除非你下载一个free pascal 输入以下程序 var a:array of integer; n,i,b:integer; begin readln(n); repeat inc(b); a:=n mod 2; n:=n div 2; until n=0; for i:=1 to b do write(a); end. 按 ...
曾小桐的回答：
不行
除非你下载一个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
就可以看到结果了
