Program to check the input number is palindrome or not


Module Module1

Sub Main()
'program to check whether the input number is palindrome or not

'declaring the variables
Dim entry, num, temp, reverse As Integer

Console.WriteLine("Enter the number youu want check as Palidrome or not")
entry = Console.ReadLine()

num = entry
While num <> 0
temp = num Mod 10
reverse = reverse * 10 + temp
num = num \ 10
End While
Console.WriteLine(reverse)
If entry = reverse Then
Console.WriteLine("The input number is a palindrome number")
Else
Console.WriteLine("The input number is not a palindrome number")
End If
Console.ReadKey()
End Sub

End Module