Números perfectos - FOXPRO
¿Cómo hacer un programa en foxpro que me muestre los primeros números perfectos?
Ayuda!
Ayuda!
1 respuesta
Respuesta de ingesoft
Para saber si un numero es perfecto se usa la fórmula 2elevado a la n-1 por (2elevado a la n Menos 1 si el numero es entero es perfecto
n=1
contador+1
Do while .t.
numero=2¨n-1*((2¨n)-1) el sombrerito de elavado no sale buscalo en tu teclado
if numero=int(numero)
messagebox(numero)
contador=contador+1
ENDIF
n=n+1
If contador>10
exit
Endif
Enddo
Haber si te sirve te mostrara los 10 números perfectos
n=1
contador+1
Do while .t.
numero=2¨n-1*((2¨n)-1) el sombrerito de elavado no sale buscalo en tu teclado
if numero=int(numero)
messagebox(numero)
contador=contador+1
ENDIF
n=n+1
If contador>10
exit
Endif
Enddo
Haber si te sirve te mostrara los 10 números perfectos
