Question

How to check whether a given number is a pronic number in VB.NET

Answer 1

Imports System

' A pronic number is a number which is the product of two consecutive integers
' 42 = 6 * 7 -> yes 6 and 7 is consecutive integers
' 45 = 5 * 9 -> no 5 and 9 is not consecutive integers
				
Public Module Module1
	 Private Function isPronicNumber(ByVal num As Integer) As Boolean
        For i As Integer = 1 To num
            If (i * (i + 1)) = num Then
                Return True
            End If
        Next

        Return False
    End Function
	Public Sub Main()
		Dim num As Integer = 42

        If isPronicNumber(num) Then
            Console.Write("yes")
        Else
            Console.Write("no")
        End If
	End Sub
End Module




' run
'
' yes
'

 

70+ SQL courses for beginners and professionals