IL PASSAGGIO DEI PARAMETRI

Numeri perfetti: sono quei numeri uguali alla somma dei loro divisori
Numeri abbondanti:se la somma dei suoi divisori lui escluso lo supera.
Numeri deficenti:se la somma dei suoi divisori lui escluso è minore.
Elenius con un programma trova tutti i numeri perfetti con facilità
program perfetti; di prima specie
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; si poteva usare anche il comando inc
perfetto:=s=n mette a confronto la risposta può essere solo si o no
end;
begin
write('Estremi dell'intervallo');readln(a,b); vuole due parametri come intervallo
for i:=a to b do
if perfetto(i) then writeln (i:3,'è perfetto'); se i è perfetto allora scrivi che è perfetto
end.
I numeri perfetti di seconda specie sono tutti quei numeri ugali al prodotto dei suoi divisori.