Algoritmia - Estudiante de Programacion y administracion de red

Algoritmo NumerosPrimosMultiplicacion

    // Inicialización

    contador := 0

    numero := 2

    multiplicacion := 1

    // Ciclo para encontrar los primeros 50 números primos

    Mientras contador < 50 Hacer

        esPrimo := Verdadero

        // Verificar si 'numero' es primo

        Para i desde 2 hasta RaízCuadrada(numero) Hacer

            Si (numero % i) == 0 Entonces

                // 'numero' no es primo

                esPrimo := Falso

                Romper el bucle

            Fin Si

        Fin Para

        // Si 'numero' es primo, multiplicarlo y aumentar el contador

        Si esPrimo Entonces

            multiplicacion := multiplicacion * numero

            contador := contador + 1

        Fin Si

        // Pasar al siguiente número

        numero := numero + 1

    Fin Mientras

    // Mostrar el resultado

    Mostrar "La multiplicación de los primeros 50 números primos es: ", multiplicacion

Fin Algoritmo