Imports System
Public Class Test
Public Shared Sub Main()
Dim s, n As Integer
s = 0
Console.WriteLine(" enter number ")
n = Console.ReadLine()
While n <> 0
s = s + (n Mod 10)
n = n / 10
End While
Console.WriteLine(s)
Console.ReadLine()
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gcywgbiBBcyBJbnRlZ2VyCiAgICAgICAgcyA9IDAKICAgICAgICBDb25zb2xlLldyaXRlTGluZSgiIGVudGVyIG51bWJlciAiKQogICAgICAgIG4gPSBDb25zb2xlLlJlYWRMaW5lKCkKICAgICAgICBXaGlsZSBuIDw+IDAKICAgICAgICAgICAgcyA9IHMgKyAobiBNb2QgMTApCiAgICAgICAgICAgIG4gPSBuIC8gMTAKICAgICAgICBFbmQgV2hpbGUKICAgICAgICBDb25zb2xlLldyaXRlTGluZShzKQogICAgICAgIENvbnNvbGUuUmVhZExpbmUoKQoJRW5kIFN1YgpFbmQgQ2xhc3M=