Question

How to check whether a given number is a disarium number in VB.NET

Answer 1

Imports System
				
Public Module Module1
	Public Sub Main()
 		Dim num As Integer = 175, remainder As Integer = 0
        Dim len As Integer = CInt(Math.Log10(num)) + 1
        Dim sum As Single = 0.0F
        Dim temp As Integer = num

        While temp > 0
            remainder = (temp Mod 10)
            sum = sum + CInt(Math.Pow(remainder, len))
			temp = temp \ 10 ' \ not /
            len -= 1
        End While

        If num = CInt(sum) Then
            Console.Write("{0} is a disarium number", num)
        Else
            Console.Write("{0} is not a disarium number", num)
        End If
	End Sub
End Module


  
  
  
   
   
' run:
'   
' 175 is a disarium number
'   

 

70+ SQL courses for beginners and professionals