Question

How to check if a number is neon number in VB.NET

Answer 1

' Neon Number is a number whose sum of digits of its square is equal to the original number
' 9 : 9 * 9 = 81 : 8 + 1 = 9 : 9 is a neon number

Imports System

Public Class Program
	Public Shared Sub Main()
        Dim num As Integer = 9
        Dim sqr As Integer = num * num
        Dim sumOfDigit As Integer = 0

        While sqr > 0
            sumOfDigit += sqr Mod 10
			sqr = sqr \ 10 ' Not /
        End While

        If num = sumOfDigit Then
            Console.Write("Neon Number")
        Else
            Console.Write("Not a Neon Number")
        End If
    End Sub
End Class




' run
'
' Neon Number
'

 

70+ SQL courses for beginners and professionals