不是VIP会员,不能显示答案
在后台新版,查看答案更方便。

题目解答

题目:
program test04;
var
i,j,a:longint;
s:array[1..32] of longint;
begin
readln(a);
j:=0;
while a<>0 do begin
inc(j);
s[j]:=a mod 2;
a:=a div 2;
end;
if j=0 then write(0) else
for i:=j downto 1 do
write(s[i]);
end.
输入:58
输出:111010
考点:
分析:
解答:
评论:
老师: