Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Lastnum = Numero mod 10
If numero Mod loopc = 0 Then
Private Function IsPerfect(N As Double) As Boolean
Dim Sum As Double
Dim Aux As Double
Aux = N / 2
Sum = 1 + Aux
Do While Aux > 2
If Fix(Aux / 2) < Aux / 2 Then
Aux = Aux + 1
End If
Aux = Aux / 2
Sum = Sum + Aux
Loop
IsPerfect = (N = Sum)
End FunctionPrivate Function IsPerfect(N as double) as BooleanPrivate Function GetPerfect(N as Long) as double
