[Turbo Pascal] Numeri perfetti

[AR64S-H]

Raga sto facendo un programma per visualizzare i primi 100 numeri perfetti.
Per numero perfetto intendo un numero che è dato anche dalla somma dei suoi divisori tranne se stesso.
Per esempio
6 ha come divisori 1,2,3 che sommati danno 6
28 ha come divisori 1,2,4,7,14 che sommati danno 28 ma non mi funziona lo potreste fare voi
Ecco il mio (la scrittura fa schifo)

program perfetti;

uses crt;

var a,b,c:integer;

begin

clrscr;

for a:=2 to 20 do

begin

for b:=1 to a do

begin

if (a mod b)=0 then

begin

c:=c+b;

end;

end;

if (c=a) then

begin

writeln('Il numero perfetto Š ',a);

end;

end;
readln;

end.

Grazie
Ciao

[AR64S-H]

up :adhone:

[AR64S-H]

perfavore serve ad un mio amico

[AR64S-H]

UP

[AR64S-H]

UP
Perfavore

[p87]

Così li calcolo fino a 500,sono solo 3:

program Perfetti;

uses crt;

var n,i:integer;
    d:integer;
begin
for n:=1 to 500 do
begin
 d:=0;
 for i:=1 to (n div 2) do
  if (n mod i)=0 then
   inc(d,i);
 if d=n then
  Writeln(n);
end;
Readln;
end.

Se ti interessa, i numeri perfetti si calcolano anke così:
2^1(2^2-1)=2*3=6
2^2(2^3-1)=4*7=28
2^3(2^4-1)=16*31=496
2^4(2^5-1)=64*127=8128

Ciauz

[AR64S-H]

Grazie mille.
Interessante anche il secondo metodo.
Tanx
Ciauz chiedi se hai bisogno tu di aiuto in qualke cosa