Question

How to print all pronic numbers between 1 and 100 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()
        For i As Integer = 1 To 100
         	If isPronicNumber(i) Then
            	Console.Write("{0} ", i)
        	End If
		Next i
    End Sub
End Module
 
 
 
 
' run
'
' 2 6 12 20 30 42 56 72 90
'

 

70+ SQL courses for beginners and professionals