Imports System
Public Class Test
Public Shared Sub Main()
Dim min, max, p, sum, r As Integer
Console.Write("Enter a minimum number= ")
min = CInt(Console.ReadLine())
Console.Write("Enter a maximum number= ")
max = CInt(Console.ReadLine())
Console.WriteLine("Perfect Numbers are:- ")
While min <= max
p = 1
sum = 0
While p < min
r = min Mod p
If r = 0 Then
sum += p
End If
p += 1
End While
If sum = min Then
Console.WriteLine(min.ToString)
End If
min += 1
End While
Console.ReadLine()
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQkgRGltIG1pbiwgbWF4LCBwLCBzdW0sIHIgQXMgSW50ZWdlcgogICAgICAgIENvbnNvbGUuV3JpdGUoIkVudGVyIGEgbWluaW11bSBudW1iZXI9ICIpCiAgICAgICAgbWluID0gQ0ludChDb25zb2xlLlJlYWRMaW5lKCkpCiAgICAgICAgQ29uc29sZS5Xcml0ZSgiRW50ZXIgYSBtYXhpbXVtIG51bWJlcj0gIikKICAgICAgICBtYXggPSBDSW50KENvbnNvbGUuUmVhZExpbmUoKSkKICAgICAgICBDb25zb2xlLldyaXRlTGluZSgiUGVyZmVjdCBOdW1iZXJzIGFyZTotICIpCiAgICAgICAgV2hpbGUgbWluIDw9IG1heAogICAgICAgICAgICBwID0gMQogICAgICAgICAgICBzdW0gPSAwCgogICAgICAgICAgICBXaGlsZSBwIDwgbWluCiAgICAgICAgICAgICAgICByID0gbWluIE1vZCBwCiAgICAgICAgICAgICAgICBJZiByID0gMCBUaGVuCiAgICAgICAgICAgICAgICAgICAgc3VtICs9IHAKICAgICAgICAgICAgICAgIEVuZCBJZgogICAgICAgICAgICAgICAgcCArPSAxCiAgICAgICAgICAgIEVuZCBXaGlsZQogICAgICAgICAgICBJZiBzdW0gPSBtaW4gVGhlbgogICAgICAgICAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUobWluLlRvU3RyaW5nKQogICAgICAgICAgICBFbmQgSWYKICAgICAgICAgICAgbWluICs9IDEKICAgICAgICBFbmQgV2hpbGUKICAgICAgICBDb25zb2xlLlJlYWRMaW5lKCkKICAgICAgIAoJRW5kIFN1YgpFbmQgQ2xhc3M=