Algoritmia - Números primos, compuestos y perfectos.

Algoritmo DeterminarPropiedades

// Función para verificar si un número es primo

Función EsPrimo(n)

    Si n <= 1

        Devolver Falso

    Fin Si

    Para i desde 2 hasta √n

        Si n módulo i = 0

            Devolver Falso

        Fin Si

    Fin Para

    Devolver Verdadero

Fin Función

// Función para verificar si un número es compuesto

Función EsCompuesto(n)

    Devolver No EsPrimo(n)

Fin Función

// Función para verificar si un número es perfecto

Función EsPerfecto(n)

    sumaDivisores = 1

    Para i desde 2 hasta √n

        Si n módulo i = 0

            sumaDivisores += i

            OtroDivisor = n / i

            Si OtroDivisor <> i

                sumaDivisores += OtroDivisor

            Fin Si

        Fin Si

    Fin Para

    Devolver sumaDivisores = n

Fin Función

// Proceso principal

Inicio

    // Ingresa el número

    Escribir "Ingrese un número: "

    Leer numero

    // Determina las propiedades del número

    Si EsPrimo(numero)

        Escribir numero, " es un número primo."

    Fin Si

    Si EsCompuesto(numero)

        Escribir numero, " es un número compuesto."

    Fin Si

    Si EsPerfecto(numero)

        Escribir numero, " es un número perfecto."

    Fin Si

Fin