Wystarczy że napiszesz procedure która będzie sumowała wszystkie dzielniki danej liczby:
suma:=0;
for i:=2 to liczba-1 do
begin
if (liczba mod i)=0 then suma:=suma+(liczba div i);
end;
Mając tą procedure możesz zacząć badac liczby.
W pętli od a do b badasz liczby w następujący sposób:
1. Suma dzielników zmiennej pętlowej.
2. Suma dzialników sumy dzilników zmiennej pętlowej (zobacz co to są liczby zaprzyjaźnione).
3. Jeśli liczby są równe to masz liczby zaprzyjaźnione.
