TOP

Visual Basic Consola - Condicionales 05




05.  Diseñe un algoritmo que lea un número de tres cifras y determine si es o no capicúo.


Imports System.Console
Module Module5
    Dim num, c1, c2, r1, r2
    Sub Main()
        Write("Ingrese Número : ")
        num = ReadLine()
        c1 = num \ 100
        r1 = num - (c1 * 100)
        c2 = r1 \ 10
        r2 = r1 - (c2 * 10)
        WriteLine()
        If num = (r2 & c2 & c1) Then
            Write("Número Capicúo")
        Else
            Write("Número No Capicúo")
        End If
        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.