Fast
Public Sub Main()
Dim num, dv, sum As Long
' El número "sub judicio":
num = 33550336
For dv = 1 To num - 1
If 0 == (num Mod dv) Then
Print " los divisores son: "; dv
sum += dv
Endif
Next
If num == sum Then
Print "El número "; num; " es perfecto !"
Else
Print "El número "; num; " no es perfecto !"
Endif
End
Public Sub Main()
Dim num, dv, sum As Long
' El número "sub judicio":
num = 33550336
For dv = 1 To num - 1
If 0 == (num Mod dv) Then
Print " los divisores son: "; dv
sum += dv
Endif
Next
If num == sum Then
Print "El número "; num; " es perfecto !"
Else
Print "El número "; num; " no es perfecto !"
Endif
End