Question

pascal程序,为什么运行不出结果

程序：
program SZE;
var
i,c,b:integer;
x:array[1..100]of integer;
begin
write('NUM=');
readln(c);
i:=0;
while C=0 do
begin
inc(i);
x[i]:=c mod 2;
c:=c div 2;
end;
b:=i;
for i:=b downto 1 do
write(x[i]);
readln
end.

Answer 1

大哥，你这写的是什么程序啊
b的值由i决定
而向上看 只有c=0时 i的值才会改变 而c是你读入的值！

应该是while c<>0 do 吧

小马虎!

Answer 2

while c<>0 do...