Question

How to count even and odd digits in an integer with VB.NET

Answer 1

' An Automorphic number is a number whose square ends with the same digits 
' as the original number. E.g – 5 : 5 * 5 = 25 //ends with 

Imports System

Public Class Program
    Public Shared even As Integer = 0, odd As Integer = 0

    Public Shared Sub countEvenOdd(ByVal n As Integer)
        While n > 0
            Dim reminder As Integer = n Mod 10

            If reminder Mod 2 = 0 Then
                even += 1
            Else
                odd += 1
            End If

            n = n / 10
        End While
    End Sub

    Public Shared Sub Main()
        Dim n As Integer = 1907834
		
        countEvenOdd(n)
		
        Console.WriteLine("Total even = " & even)
        Console.WriteLine("Total odd = " & odd)
    End Sub
End Class




' run:
'
' Total even = 4
' Total odd = 3
'

 

70+ SQL courses for beginners and professionals