Numeros pares e impares

Aplicaciòn de consola

Ingresar n números y determinar cuantos de ellos son pares e impares el programa finaliza cuando se ingrese cero.

Module nparesimpares

    Sub Main()

        Dim n, residuo, numpar, nuimpar As Integer

        Do

            Console.WriteLine("Ingrese un numero")

            n = Console.ReadLine()

            residuo = n Mod 2

            If residuo = 0 Then

                numpar = numpar + 1

            Else

                nuimpar = nuimpar + 1

            End If

        Loop While n <> 0

        Console.WriteLine("Los numeros pares son {0}", numpar)

        Console.WriteLine("Los numeros impares son {0}", nuimpar)

    End Sub

End Module

Posted in: