¿Cómo hacer un programa en foxpro que me muestre los primeros números perfectos? Ayuda!
1 Respuesta
Respuesta de ingesoft
0
0
ingesoft, Ing. en Sistemas ,Manejo de base de datos Diseño y elaboración de...
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