Check whether the input number is arm-strong or not


Module Module1

Sub Main()
'Program to check whether the input number is armstrong or not

'decalring the variables
Dim entry, num, check, temp As Integer

Console.WriteLine("Enter the number to check whether the number is arm strong or not")
entry = Console.ReadLine()

num = entry
While num <> 0
temp = num Mod 10
check = check + temp ^ 3
num = num \ 10
End While

If entry = check Then
Console.WriteLine("The number is a armstrong number")
Else
Console.WriteLine("The number is not a palindrome number")
End If
Console.ReadKey()
End Sub

End Module

Comments

Post a Comment

Popular posts from this blog

Program to extract vowel from the input string

Module Module1 Sub Main() 'Progrm to extract the vowels from the input string 'declaring the variables Dim entry, temp, vowels As String Dim index As Integer vowels = "" Console.WriteLine("Enter the string to extract vowels from it") entry = Console.ReadLine() For index = 1 To entry.Length temp = UCase(Mid(entry, index, 1)) If temp = "A" Or temp = "E" Or temp = "I" Or temp = "O" Or temp = "U" Then vowels = vowels & " " & temp End If Next Console.WriteLine("The vowels in the string :" & entry & " are:- ") Console.WriteLine(vowels) Console.ReadKey() End Sub End Module
Read more

Print the factorial value of an input number

Module Module1 Sub main() 'program to print the factorial value of a input number 'declaring the datatypes Dim num, factorial As Integer 'initializing the value of factorial factorial = 1 'entry of the number Console.WriteLine("Enter the number whose factorial value you want to be generated ") num = Console.ReadLine 'start of the while loop to calculate the factorial value of the input number While num <> 0 factorial = factorial * num num = num - 1 End While 'generating the output of the factorial value Console.WriteLine("The factorial value of the number you entered is " & factorial) Console.ReadLine() ' this line of code holds the screen so that you can see the output End Sub End Module
Read more