Question

How to calculate the sum of digits of 2 power 15 in VB.NET

Answer 1

Imports System

Public Class Program
    Private Shared Function sumDigits(ByVal num As Integer) As Integer
        Dim sum As Integer = 0

        While num <> 0
            sum += num Mod 10
			num = num \ 10
        End While

        Return sum
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim _base As Integer = 2
        Dim exponent As Integer = 15
		
        Dim power As Integer = CInt(Math.Pow(_base, exponent))
		
        Console.Write(sumDigits(power))
    End Sub
End Class



' run:
'
' 26
'

 

70+ SQL courses for beginners and professionals