Số hoàn hảo

Bài 1 : Số hoàn hảo

Số nguyên dương n được gọi là số hoàn hảo nếu tổng tất cả các ước của nó trừ chính nó bằng chính nó.

Chẳng hạn : 6= 3+2+1 nên 6 là số hoàn hảo.

Yêu cầu : Đếm xem có bao nhiêu số hoàn hảo nhỏ hơn hoặc bằng n.

Dữ liệu vào: Được nhập vào từ bàn phím gồm một dòng duy nhất là số nguyên dương n (n<10000)

Dữ liệu ra : In lên màn hình gồm hai dòng :

- Dòng thứ nhất là : số lượng số hoàn hảo nhỏ hơn hoặc bằng n.

- Dòng thứ hai gồm : Các số hoàn hảo tìm được, các số cách nhau ít nhất một dấu cách.

VD:

Thông tin nhập vào là 100

Kết quả in trên màn hình số lượng số hoàn hảo là 2 (6;28)

Lời giải: 
var t_uoc, i, N : integer ;
begin
write('Nhap n =');
readln(n);
t_uoc :=1;
for i:=2 to N div 2 do 
   begin
     If (n mod i = 0) then inc(t_uoc,i);
     If (t_uoc = N) then write ('So hoan hao')
     else write('khong la so hoan hao');
   end;
readln
end.