Question

yêu cầu viết chương trình thoả mãn yêu cầu sau :

Số hoàn hảo là số có tổng các ước số nhỏ hơn nó bằng chính nó.

Ví dụ 28 là số hoàn hảo (28 = 1 + 2 + 4 + 7 + 14).

Cho một số nguyên n, hãy kiểm tra xem n có phải là số hoàn hảo hay không.

Dữ liệu nhập: Là số nguyên n (2 ≤ n ≤ 10⁷)

Dữ liệu xuất: Nếu n là số hoàn hảo in ra YES. Nếu không in ra NO.

Ví dụ input 28 output YES input 29 output NO

Answer 1

Program HOC24;

var n,i,t: longint;

begin

write('Nhap N : '); readln(n);

t:=0;

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

if t<=n then write('YES') else write('NO');

readln

end.