Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Posible Codigo Para Averiguar Si Un Número Es "perfecto"
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Posible Codigo Para Averiguar Si Un Número Es "perfecto" 
 
Como de asunto...

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

 



 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Posible Codigo Para Averiguar Si Un Número Es "perfecto" 
 
vuott escribió: [Ver mensaje]
Como de asunto...[/code]

Pues si, funciona con:
28
496
8128
Así que con 33550336 también.

Luego con  120 no es perfecto.

Saludos.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Posible Codigo Para Averiguar Si Un Número Es "perfecto" 
 
¿Esos son los números arios?

       
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Posible Codigo Para Averiguar Si Un Número Es "perfecto" 
 
shordi escribió: [Ver mensaje]
¿Esos son los números arios?


...altos, bellos, rubios !    
 



 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Posible Codigo Para Averiguar Si Un Número Es "perfecto" 
 
vuott escribió: [Ver mensaje]
shordi escribió: [Ver mensaje]
¿Esos son los números arios?


...altos, bellos, rubios !    


estan hablando de mi?
 



 
tercoIDE - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Posible Codigo Para Averiguar Si Un Número Es "perfecto" 
 
tercoIDE escribió: [Ver mensaje]
vuott escribió: [Ver mensaje]
shordi escribió: [Ver mensaje]
¿Esos son los números arios?


...altos, bellos, rubios !    


estan hablando de mi?
So no tienes decimales, sí.
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Posible Codigo Para Averiguar Si Un Número Es "perfecto" 
 
shordi escribió: [Ver mensaje]
Si no tienes decimales, sí.


"decimales"... deminutio ?    



Exempla maxima de la teoría de shordi:

Con decimales:
fantozzi3


Sin decimales:
2f1edc131e281eba7761fb2a45f4bf0a
 



 
última edición por vuott el Viernes, 12 May 2017, 16:08; editado 2 veces 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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.

   
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Posible Codigo Para Averiguar Si Un Número Es "perfecto" 
 
shordi escribió: [Ver mensaje]
.... un buen par... o sea que se puede dividir por dos.


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



 
última edición por vuott el Viernes, 12 May 2017, 17:40; editado 1 vez 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Un Detalle Con El Insert Into Gambas Value... jousseph Bases de Datos 5 Domingo, 04 Noviembre 2012, 20:58 Ver último mensaje
Shell
No hay nuevos mensajes ¿Es Posible Implementar Un "super Ob... shordi General 2 Jueves, 21 Marzo 2013, 11:20 Ver último mensaje
shordi
No hay nuevos mensajes Cuando Un Codigo Es... "más Gambas&q... vuott General 14 Viernes, 05 Agosto 2016, 19:41 Ver último mensaje
shordi
No hay nuevos mensajes Ejecutar Archivos Audio MP3 Con La Clase &... vuott Aplicaciones/Fragmentos de Código 5 Lunes, 02 Diciembre 2019, 13:28 Ver último mensaje
tincho
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron