TOP

Visual Basic Consola - Repetitiva MIENTRAS 03




03.  Ingresar un número de cualquier cifra y mostrar al final, la suma de sus cifras.


Imports System.Console
Module Module3
    Dim cont, num, suma
    Sub Main()
        Write("Ingrese un número entero : ")
        num = ReadLine()
        While (cont <= num)
            Write(cont & " ")
            suma = suma + cont
            cont = cont + 1
        End While
        WriteLine()
        WriteLine("Cifras invertidas : " & suma)
        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.