uses crt; var A:array[1 100] of integer; N,i,T,j:integer; function mu(x:integer):integer; begin T:=1; for i:=1 to x do T:=T*2; mu:=T; end; begin clrscr; write('Nhap so can doi tu he 2 >10: ');readln(n); i:=0; while n<>0 do begin i:=i+1; A[i]:=n mod 10; n:=n div 10; end; n:=0; for j:=i downto 1 do begin write(n, ' '); n:=n+A[j]*mu(j-1); end; write('So sau khi doi la: ',N); readln end. . ');readln (n) ; i:=0; while n& lt;>0 do begin i:=i+1; A[i]: =n mod 10; n: =n div 10; end; n: =0; for j:=i downto 1 do begin write (n, ' '); n: =n+ A[j]*mu(j-1); end; write('So. A:array[1 100 ] of integer; N, i,T,j:integer; function mu(x:integer):integer; begin T:=1; for i:=1 to x do T:=T *2; mu:=T; end; begin clrscr; write('Nhap so can doi tu he 2 > ;10: ');readln (n) ; . write (n, ' '); n: =n+ A[j]*mu(j-1); end; write('So sau khi doi la: ' ,N) ; readln end.