怎样用PASCAL编（将十进制数转化为二进制数）

level 1

hongyuliang 楼主

圣诞节发喀什解放坷拉

2006年11月30日 08点11分 1

level 0

219.142.40.*

http://post.baidu.com/f?kz=148305815

2006年12月01日 09点12分 2

level 1

xukaiwen1995

用shr

2006年12月03日 02点12分 3

level 12

ETODW◆

var s : string;
i,sum,k,n,m : integer;
begin
read(s);
sum := 0;
k := 1;
for i := length(s) downto 1 do
begin
val(s[i],n,m);
sum := sum + n*k;
k := k*2;
end;
writeln(sum);
end.

2014年04月13日 10点04分 4

level 13

Fallen_Breath

var n:longint;
begin
readln(n);
if n=0 then writeln(0)
else writeln(binstr(n,trunc(ln(n)/ln(2))+1));
end.

2014年04月13日 11点04分 5

level 3

james9700

2017年07月31日 09点07分 6