Números Amigos

Ejercicio:

• Además de encontrar los divisores de un número, si son números primos o perfectos, también encontrar que la suma de suma1= num y suma=num1, cuando estos sean números amigos. 

Proceso
        i<-2; cont<-2; suma<-1
        Escribir "Digita un entero positivo mayor que 1";
        Leer num;
        Escribir "Digita un entero positivo mayor que 1";
        Leer num1;
        Escribir "Los divisores de", num," Son: (1";
        Mientras i<=num/2 Hacer
               Si num MOD i=0 Entonces
                     Escribir i,",";
                     cont<-cont+1; suma<-suma+i
               FinSi
               i<-i+1
        FinMientras
        Escribir num,")";
        Si cont=2 Entonces
               Escribir "El numero ", num," Es Primo";
        Sino
               Escribir "El numero ", num," NO es Primo";
        FinSi
        Si suma=num Entonces
               Escribir "El numero es Perfecto";
        Sino
               Escribir "NO es Perfecto";
        FinSi
        i<-2; cont<-2; suma1<-1
        Escribir "Los divisores de", num1," Son: (1";
        Mientras i<=num1/2 Hacer
               Si num1 MOD i=0 Entonces
                      Escribir i,",";
                      cont<-cont+1; suma1<-suma1+i
                FinSi
               i<-i+1
        FinMientras
        Escribir num1,")";
        Si cont=2 Entonces
               Escribir "El numero ", num1," Es Primo";
        Sino
               Escribir "El numero ", num1," NO es Primo";
        FinSi
        Si suma1=num1 Entonces
               Escribir "El numero es Perfecto";
        Sino
               Escribir "NO es Perfecto";
        FinSi
        Si suma1=num y suma=num1 Entonces
               Escribir "Son numeros amigos";
        Sino
               Escribir "NO son numeros amigos";
        FinSi
FinProceso

Números Amigos