Imports System
Module LongestZeroes
' Function to find the longest sequence of consecutive zeroes in binary representation
Function LongestConsecutiveZeroes(ByVal n As Integer) As Integer
Dim maxCount As Integer = 0
Dim currentCount As Integer = 0
While n > 0
If (n And 1) = 0 Then ' Check if the least significant bit is 0
currentCount += 1
maxCount = Math.Max(maxCount, currentCount) ' Update maxCount
Else
currentCount = 0 ' Reset count when a 1 is encountered
End If
n >>= 1 ' Right shift the number
End While
Return maxCount
End Function
Sub Main()
Dim num As Integer = 11298 ' 0010 1100 0010 0010
Console.WriteLine("Longest consecutive zeroes: " & LongestConsecutiveZeroes(num))
End Sub
End Module
' run:
'
' Longest consecutive zeroes: 4
'
