Números perfectos - FOXPRO

¿Cómo hacer un programa en foxpro que me muestre los primeros números perfectos?
Ayuda!

1 Respuesta

Respuesta
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas