numeri...

numeri abbondanti: quando la somma di tutti i suoi divisori lui escluso,lo supera
es. 12/6,4,3,2,112<6+4+3+2+1=16>5+2+1=8

numeri perfetti: quando la somma di tutti i suoi divisori lui escluso,è uguale a se stesso
1°es. 6/1,2,36=1+2+32°es. 28/1,2,4,7,1428=1+2+4+7+14

UN ESEMPIO DI PROGRAMMA CHE CALCOLA I NUMERI PERFETTI E' QUESTO:

program perfetti;
var a,b,i:integer;
function PERFETTO(n:integer):boolean;
var s,i:integer;
begin
s:=1; for i:=2 to n div 2 do
if n mod i=0 then s:=s+1;
PERFETTO:=s=n
end;
begin
write('Estremi dell intervallo:');readln(a,b);
for i:=a to b do
if PERFETTO(i) then writeln(i:3,'Š perfetto');
end.