2. 把十进制转换成二进制，并把二进制每一位放在一维数组B中，输出B

num(十进制数）
t:=1;
while num<>0 do
begin
b[t]:=num mod 2;
t:=t+1;
num:=num div 2
end;
for i:=t-1 downto1 do write(b[i]);

汗。。我也想钻地，连语言都没来得及说。。真急

什么语言………………