https://foro.gambas-es.org/viewtopic.php?f=5&t=6360
-----------------------------------
vuott
Jueves, 11 May 2017, 22:16

Posible Codigo Para Averiguar Si Un Número Es "perfecto"
-----------------------------------
Como de asunto...

[code linenumbers=false syntax=gambas]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[/code]


-----------------------------------
tincho
Viernes, 12 May 2017, 02:09

Re: Posible Codigo Para Averiguar Si Un Número Es "perfecto"
-----------------------------------
[quote user="vuott" post="38106"]Como de asunto...[/code][/quote]
Pues si, funciona con:
28
496
8128 
Así que con [b]33550336[/b] también.

Luego con  120 no es perfecto.

Saludos.


-----------------------------------
shordi
Viernes, 12 May 2017, 08:14

Re: Posible Codigo Para Averiguar Si Un Número Es "perfecto"
-----------------------------------
¿Esos son los números arios?

 :mrorange:  :mrorange:  :mrorange:  :mrorange:


-----------------------------------
vuott
Viernes, 12 May 2017, 12:48

Re: Posible Codigo Para Averiguar Si Un Número Es "perfecto"
-----------------------------------
[quote user="shordi" post="38118"]¿Esos son los números arios?[/quote]

...altos, bellos, rubios !     :lol:


-----------------------------------
tercoIDE
Viernes, 12 May 2017, 14:17

Re: Posible Codigo Para Averiguar Si Un Número Es "perfecto"
-----------------------------------
[quote user="vuott" post="38122"][quote user="shordi" post="38118"]¿Esos son los números arios?[/quote]

...altos, bellos, rubios !     :lol:[/quote]

estan hablando de mi?


-----------------------------------
shordi
Viernes, 12 May 2017, 14:41

Re: Posible Codigo Para Averiguar Si Un Número Es "perfecto"
-----------------------------------
[quote user="tercoIDE" post="38123"][quote user="vuott" post="38122"][quote user="shordi" post="38118"]¿Esos son los números arios?[/quote]

...altos, bellos, rubios !     :lol:[/quote]

estan hablando de mi?[/quote]So no tienes decimales, sí.


-----------------------------------
vuott
Viernes, 12 May 2017, 15:59

Re: Posible Codigo Para Averiguar Si Un Número Es "perfecto"
-----------------------------------
[quote user="shordi" post="38124"]Si no tienes decimales, sí.[/quote]

"decimales"... [i]deminutio[/i] ?     :mrgreen:



[i]Exempla maxima[/i] de la teoría de [i]shordi[/i]:

[u]Con[/u] decimales:
[img]http://www.affaritaliani.it/static/upl/fan/fantozzi3.jpg[/img]


[u]Sin[/u] decimales:
[img]https://s-media-cache-ak0.pinimg.com/736x/2f/1e/dc/2f1edc131e281eba7761fb2a45f4bf0a.jpg[/img]


-----------------------------------
shordi
Viernes, 12 May 2017, 17:18

Re: Posible Codigo Para Averiguar Si Un Número Es "perfecto"
-----------------------------------
Has pillado la idea, pequeño pádawan. La de abajo es más "perfecta", aunque tiene un buen par... o sea que se puede dividir por dos.

 :mrorange:  :mrorange:


-----------------------------------
vuott
Viernes, 12 May 2017, 17:39

Re: Posible Codigo Para Averiguar Si Un Número Es "perfecto"
-----------------------------------
[quote user="shordi" post="38126"].... un buen par... o sea que se puede dividir por dos.[/quote]

...ehmmm...demasiada aritmética por mí.    :grin:


