program backbinary;

var a:array[0..50]of integer;

s:string;

mult,ans:int64;

i:integer;

begin

readln(s);

for i:=length(s) downto 1 do

a[length(s)-i+1]:=ord(s[i])-ord('0');

mult:=1;

for i:=1 to length(s) do

begin

inc(ans,mult*a[i]);

mult:=mult*2;

end;

writeln(ans);

end.

纠个错

倒数第四行

for ii:= i downto 1 do

应该改为

for ii:= i-1 downto 1 do

不情之请

感谢2L的

是否方便教一下 二进制转化十进制 啊

这种题目应该自己想

可能有点麻烦......

var

a:array[1..100] of integer;

i,ii,x,y,n:integer;

begin

readln(n);

y:=n div 2;

x:=n mod 2;

a[1]:=x;

i:=2;

while y0 do

begin

x:=y mod 2;

y:=y div 2;

a[i]:=x;

i:=i+1;

end;

for ii:=i downto 1 do

write(a[ii]);

readln

end.