programa,Par o Impar,Positivo o Negativo,Primo o no es Primo

Programa que define si el número es par o impar

Module Module1

    'la variable es de tipo integer es de tipo entero'

    Dim y As Integer

    Sub Main ()

        'nos pide que ingresemos el numero

        Console.WriteLine (" Ingrese un número")

        y = Console.ReadLine

        'el if define es el número es par y si no entonces el número es impar'

        If (y / 2) = Int((y / 2)) Then

            Console.WriteLine (" El número par")

            Console.ReadLine ()

            'el else sirve para que diga que si el número no es para entonces que imprima que es impar'

        Else

            'define si le número es impar'

            Console.WriteLine ("El número impar")

            Console.ReadLine ()

        End If

        Console.ReadLine ()

    End Sub

End Module

Programa que muestre si un número es positivo o negativo

Module Module1

    'o es una variable de tipo real'

    Dim o As Double

    Sub Main ()

        'pide que ingres ms el numero'

        Console.WriteLine ("ingrese un numero o")

        o = Console.ReadLine ()

        'if si la variable o es mayor que cero'

        If o > 0 Then

            'si o es mayor que cero que diga que le número es positivo'

            Console.WriteLine ("es positivo")

            Console.ReadLine ()

            'y si el número es menor que cero que diga que es negativo'

        Else

            Console.WriteLine ("es negativo")

            Console.ReadLine ()

        End If

    End Sub

End Module

Programa de numero primo

   Module Module1

    Sub Main ()

        'la variable c es de tipo entero'

        Dim c As Integer

        Dim comprobacion As Boolean = True

        'pide que ingresemos un numero'

        Console.WriteLine ("ingrese  número")

        c = Console.ReadLine

        'el for el un ciclo de 2 numero que define si uno de los dos es primo'

        For i As Integer = 2 To c - 1

            If c Mod i = 0 Then

                'comprueba si el numero es primo si no que imprima que no es primo'

                Comprobacion = False

            End If

        Next

        If comprobacion = False Then

            'imprime que el número no es primo'

            Console.WriteLine ("no es  primo", c)

        Else

            'imprime que el número si es primo'

            Console.WriteLine ("si  es primo", c)

        End If

        Console.ReadLine ()

    End Sub

End Module