TOP

Visual Basic Consola - Secuenciales 10




10.  Ingrese un numero de tres cifras en indique, la unidad, decena y centena de dicho número.



Imports System.Console
Module Module10
    Dim num, res, c, d, u
    Sub main()
        WriteLine("Ingrese Número de 3 cifras : ")
        num = ReadLine()

        c = num \ 100
        res = num - (c * 100)
        d = res \ 10
        u = res - (d * 10)

        WriteLine()
        WriteLine("CENTENA : " & c)
        WriteLine("DECENA  : " & d)
        WriteLine("UNIDAD  : " & u)
        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.