TOP

Visual Basic Consola - Repetitiva PARA 03




03.  Elaborar un programa que permita ingresar 10 número enteros y muestre la cantidad de números pares e impares ingresados.


Imports System.Console
Module Module3
    Dim num, pares, impares
    Sub Main()
        For cont As Integer = 1 To 10
            Write("Ingrese Número " & cont & " : ")
            num = ReadLine()
            If (num - ((num \ 2) * 2)) = 0 Then
                pares = pares + 1
            Else
                impares = impares + 1
            End If
        Next
        WriteLine()
        WriteLine("Número de PARES ingresados : " & pares)
        WriteLine("Número de IMPARES ingresados : " & impares)
        ReadLine()
    End Sub
End Module


share_facebook

DAME UN ME GUSTA - SI VALORAS ESTE CÓDIGO



0 comentarios:

Publicar un comentario

Danos tu opinión o déjanos tu ejercicio! - Algoritmos, pseudocódigo y lo pasamos a Visual Basic consola.