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呢？

求大神帮忙