Un pò di numeri.....

Ciao a tutti...

Volevo darvi qualche definizione sui numeri perfetti...

Cominciamo.........

Un numero si dice perfetto quando la somma dei suoi divisori (escluso se stesso) è uguale al numero scelto. 6 è un numero perfetto perchè 1+2+3=6

Un numero si dice abbondante se la somma dei suoi divisori (escluso se stesso) è maggiore al numero scelto.18 è un numero abbondante perchè 1+2+3+6+9=21

Un numero si dice deficiente se la somma dei suoi divisori (escluso se stesso) è minore del numero scelto. 8 è un numero deficiente perchè 1+2+4=7

Questo è il programma che da' i numeri perfetti:

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+2;

perfetto :=s=n

end;