Question

Bài 9: Nhập một số nguyên theo kiểu nhị phân, sau đó đổi ra hệ thập phân và in kết
quả ra màn hình.

Answer 1

uses crt;

var st:string;

i,d,t,x,y,kq,j,lt:integer;

begin

clrscr;

readln(st);

d:=length(st);

kq:=0;

for i:=1 to d do 

  begin

    lt:=1;

for j:=1 to d-i do 

  begin

val(st[i],x,y);

lt:=lt*x;

end;

kq:=kq+x*lt;

end;

writeln(kq);

readln;

end.