Program NN; Uses crt; Var St:string; A:array[1..100] of longint; n,i,k,gt: longint; Begin Clrscr; Write('Nhap nhi phan: '); Readln(St); For i:=1 to length(St) do If St[i]='1' then A[i]:=1 else A[i]:=0; n:=0; For i:=1 to length(St) do Begin gt:=1; For k:=1 to length(St)-i do gt:=gt*2; n:=n+A[i]*gt; End; write('So thap phan la: ',n); Readln End.
uses crt; var tong,t,i:longint; s:string; begin clrscr; write('Nhap nhi phan: ');readln(s); t:=1; for i:=length(s) downto 1 do begin if s[i]='1' then inc(tong,t); t:=t*2; end; writeln(tong); readln end.
