số hoàn hảo là gì???

hi các bạn
cho mình hỏi số hoàn hảo là gì???
các bạn cho mình code bài nì lun nha
thanks rất nhiều

Số hoàn hảo là một số tự nhiên mà tổng tất cả các ước tự nhiên của nó trừ chính nó thì bằng chính nó.
Vd1: 6=1+2+3

Viết bằng pascal nhé


var s,i,n:integer;
begin
for i:=1 to n-1 do (nếu ko có dk nhận lun n)
if n mod i=0 then inc(s,i);
if s=n then số trên là hoàn hảo
end.

bác cho biết hàm inc là hàm gì được không ạ ?:D

inc(x) la ham tang bien x len 1 thu tu trong bang ma ascii

sao lại gọi nó là số hoàn hảo dzạ bác?