Tại hành tinh Alpha, mọi người đều được đặt tên là các con số. Giá trị tình bạn tình bạn của hai người được tính như sau: chuyển tên của họ sang hệ nhị phân, viết 2 dãy số theo từng cột sau đó bắt đầu tính giá trị của mỗi cột như sau: 0 nếu như tên của 2 người ở cột đó giống nhau, 1 nếu khác nhau. Ví dụ, giá trị tình bạn của 19 và 10 là 25: 1 0 0 1 1 = 19 + 0 1 0 1 0 = 10 1 1 0 0 1 = 25 Cho danh sách tên của các cư dân trên hành tinh, bạn hay tính tổng giá trị tình bạn của hành tinh này. Dữ liệu nhập: Dòng đầu tiên chứa một số nguyên dương N - số lượng cư dân của hành tinh (1 N 106), tiếp theo là N dòng, mỗi dòng chứa một số nguyên X (1 X 106) - tên của cư dân trong hành tinh. Dữ liệu xuất: Một số nguyên duy nhất là tổng giá trị tình bạn tìm được. var n,x,j,i:longint;t:int64; a:array[0..20,0..20] of int64; begin read(n); for i:=1 to n do begin read(x); for j:=0 to 19 do inc(a[j,x>>j and 1]); end; for i:=0 to 19 do inc(t,a[i,1]*a[i,0]*(1<<i)); write(t) end. AI GIẢI THÍCH DÙM MÌNH CODE NÀY ĐC KO ? :(( ĐỌC HK HIỂU J HẾT!!!