×
解除綁定，重新設定系統帳號的密碼
您的系統帳號 ID：
您的系統帳號：
您的帳號暱稱：
設定新密碼：
設定新密碼：
×
請輸入要加入的「課程代碼」
請向開設課程的使用者索取「課程代碼」
分類題庫
解題動態
排行榜
討論區
競賽區
登入
註冊
發表新討論
#8832: 为什么会WA？>_<
yishabeier
(gzy)
學校:
上海市娄山中学
編號:
40834
×
傳送站內訊息
傳給：
主題：
內容：
來源:
[114.86.79.178]
註冊時間:
2014-04-30 21:26:24
最後登入時間:
2015-06-04 17:31:58
a034.
二進位制轉換
| From: [124.78.93.91] | 發表日期: 2014-05-24 18:48
程序如下：
const
s:string='0123456789ABCDEF';
var
m:longint;
i,j,k,n:byte;
a:array[1..32] of byte;
begin
while not eof do begin
readln(m);
n:=2;
i:=0;
while m>0 do begin
i:=i+1;
a[i]:=m mod n;
m:=m div n;
end;
for j:=i downto 1 do write(s[a[j]+1]);
readln;
end;
end.
为什么会WA呢？
求大神帮忙