0votos
numeros amigos en Delphi
por

Seba_lujan

usando fpc pascal hace 3 años

Declaro 2 funciones una que retorna si la suma de todos los divisores positivos = y (s(x))=y para saber si la suma de divisores da lo mismo como 2 números m y n son amigables si se cumple que: s(n) = m and s(m) = n Digo es amigable si s(x,n) = s(n,x)