Đáp án: D. 2-5-1-3-10-4-8-7-6-9

chương trình hoàn chỉnh:

program So_Hoan_Chinh;

var n,i,s: integer;

begin

write('Nhap so n: ');

readln(n);

s:=0;

for i:=1 to n-1 do if n mod i = 0 then s:=s+i;

if s=n then write(n,' la so hoan chinh') else writeln(n,' khong phai la so hoan chinh');

readln

end.

- Sắp xếp chương trình :

{2}   program So_Hoan_Chinh;

{5}   var n, i, s: integer;

{1}   begin

{3}   write('Nhap so n: ');

{10} readln(n); 

{4}   s := 0;

{8}   for i := 1 to n - 1 do if n mod i = 0 then s := s + i;

{7}   if s = n then write(n, ' la so hoan chinh') else writeln(n, ' khong phai la so hoan chinh');

{6}   readln

{9}   end.

⇒ Đáp án : D. 2 - 5 - 1 - 3 - 10 - 4 - 8 - 7 - 6 - 9