• Lenguaje

    Visual Basic .Net

  • Descripción

    Desarrolle un algoritmo que le permita leer dos valores A y B e indicar si la suma de los dos números es par.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Module SumaDeDosNumerosEsPar

    Sub Main()
        Dim A, B As Integer
        Console.Write("Ingresa el valor de A: ")
        A = Integer.Parse(Console.ReadLine())
        Console.Write("Ingresa el valor de B: ")
        B = Integer.Parse(Console.ReadLine())
        If A+B Mod 2 = 0 Then
            Console.WriteLine("La suma de los dos n" & ChrW(&HFA) & "meros es par.")
        Else
            Console.WriteLine("La suma de los dos n" & ChrW(&HFA) & "meros es impar.")
        End If
        Console.WriteLine()
        Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
    End Sub

End Module