2. 二进制转十进制。

2. 二进制转十进制。

program ex_2;
var
     a : array [1..16] of 0 .. 1;
     st : string;
     i, n, p : integer;
begin
     readln(st);
     for i := 1 to length(st) do
         a[i] := ord(st[i])-ord('0');
     n := 0;
     p := 1;
     for i := i downto 1 do
     begin
          if a[i] = 1 then
             n := n+p;
          p := p*2;
     end;
     writeln(n);
     readln;
end.