Check whether the input number is prime or not


Module Module1

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

'decalring the variables
Dim entry, count, index As Integer

Console.WriteLine("Enter the number to check prime or not")
entry = Console.ReadLine()

For index = 1 To entry
If entry Mod index = 0 Then
count = count + 1
End If
Next
If count = 2 Then
Console.WriteLine(entry & " is a prime number")
Else
Console.WriteLine(entry & " is not a prime number")
End If
Console.ReadKey()
End Sub

End Module

Comments

Post a Comment

Popular posts from this blog

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

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
Read more