Question

viết chương trình khiểm tra 1 số có phải là số hoàn hảo hay không và đưa ra câu trả lời tương ứng

Answer 1

Var i,n:integer;

t:real;

Begin

Repeat

Write (' nhap n =');

Readln(n);

Until n>1;

t:=0;

For i:= 1 to n-1 do If n mod i = 0 then t:=t+i;

If t=n then Writeln (n,' la so hoan hao ')

else (n,'khong phai la so hoan hao ');

Readln;

end.