CLEAR

PUBLIC solu, cant
PUBLIC y, n, ini, fin
PUBLIC salir as Boolean
cant=0
solu=0
n=0
salir = .f.

@ 2,2 say "ingrese la cantidad de soluciones " get cant PICT "99999999"
read
hi=time()
do while !salir
n=n+1
ini = n+1
fin = 2*n
solu=0
    for x=ini to fin
        y=(1/((1/n)-(1/x)))
        if (y-int(y))=0
            solu=solu+1
        endif
    endfor
    if (solu >= cant)
            salir=.t.
    endif
enddo
hf=time()
 @ 4,2 say "cantidad de soluciones" +str (solu)
 @ 5,2 say  "menor valor" + str(n)
?"tiempo de inicio: ",hi
?"tiempo de finalizaicon: ",hf

wait
*!*      alguno resultados
*!*  soluciones - menor valor de 'n'
*!*         50      360
*!*         90      840
*!*         113     1260
*!*         120     1680
*!*         150     2520
*!*         200     9240

*!*  el problema de si es long o integer, o double, en vfp
*!*  los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
*!*  1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20

*!*  convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
*!*      alguno resultados
*!*  soluciones - menor valor de 'n'
*!*         50      360
*!*         90      840
*!*         113     1260
*!*         120     1680
*!*         150     2520
*!*         200     9240

*!*  el problema de si es long o integer, o double, en vfp
*!*  los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
*!*  1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20

*!*  convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
*!*  soluciones - menor valor de 'n'
*!*         50      360
*!*         90      840
*!*         113     1260
*!*         120     1680
*!*         150     2520
*!*         200     9240

*!*  el problema de si es long o integer, o double, en vfp
*!*  los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
*!*  1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20

*!*  convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
*!*         50      360
*!*         90      840
*!*         113     1260
*!*         120     1680
*!*         150     2520
*!*         200     9240

*!*  el problema de si es long o integer, o double, en vfp
*!*  los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
*!*  1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20

*!*  convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
*!*         90      840
*!*         113     1260
*!*         120     1680
*!*         150     2520
*!*         200     9240

*!*  el problema de si es long o integer, o double, en vfp
*!*  los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
*!*  1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20

*!*  convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
*!*         113     1260
*!*         120     1680
*!*         150     2520
*!*         200     9240

*!*  el problema de si es long o integer, o double, en vfp
*!*  los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
*!*  1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20

*!*  convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
*!*         120     1680
*!*         150     2520
*!*         200     9240

*!*  el problema de si es long o integer, o double, en vfp
*!*  los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
*!*  1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20

*!*  convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
*!*         150     2520
*!*         200     9240

*!*  el problema de si es long o integer, o double, en vfp
*!*  los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
*!*  1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20

*!*  convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
*!*         200     9240

*!*  el problema de si es long o integer, o double, en vfp
*!*  los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
*!*  1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20

*!*  convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
*!*  el problema de si es long o integer, o double, en vfp
*!*  los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
*!*  1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20

*!*  convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
*!*  los valores Numeric Enteros o fracciones son de 8 bytes  (64 bits) en la memoria;
*!*  1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20

*!*  convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
*!*  1 a 20 bytes en una tabla - .9999999999E+19 a .9999999999E+20

*!*  convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de dat
*!*  convengamos q vfp no es un lenguaje para estos calculos, su fuerte es la manipulacion de datos