/*Programa: Primos1

    Autores: Lidia y Pablo

    Descripción: Este programa imprime la lista de los números

primos entre 1 y 100*/

 

Program Primos1

 

      Var k As Integer  //número a ensayar

     

      //función que indica si "k" es primo

      Function EsPrimo(k As Integer) As Boolean

            Var d As Integer  //posible divisor

            For d=2 To (-1+k)

                  If k Mod d=0 Then

                        Return False

                  End If

            Next

            Return True

      End Function

     

      Method Main()

 

            Var n As Integer

            Var m As Integer

            n=1

            m=100

           

            //impresión del resultado

            PrintLine("Los números primos comprendidos entre los valores "+n+" y "+m+" son:")

            PrintLine("")

            For k=n To m

                  If EsPrimo(k) Then

                        Print(k)

                        Print("     ")

                  End If

            Next

 

      End Method

 

End Program