Programación VFP: encuentre la suma de números impares cuya suma cúbica es 168 para cada dígito en un número de cuatro dígitos
CLEAR
lnt=0
lnc=0
lnq=0
PARA i=1 A 9
PARA j=0 A 9
PARA k=0 A 9
PARA l=0 A 9
lnt=i ^3 j^3 k^3 l^3
IF lnt=168
lnc=lnc 1
?'Suma de cubos 168:' TRANSFORM( i ) TRANSFORMAR(j) TRANSFORMAR(k) TRANSFORMAR(l)
lnq=lnq IIF(i2=1, i, 0) IIF(j2=1, j, 0);
IIF(k2=1,k,0) IIF(l2=1,l,0)
*?'La suma de los números impares en este número es:' TRANSFORM(IIF(i2== 1,i,0 ) IIF(j2=1,j,0);
IIF(k2=1,k,0) IIF(l2=1,l,0))
ENDIF
p>ENDFOR
ENDFOR
ENDFOR
ENDFOR
IF lnclt 1 'No número coincidente! '
ELSE 'Los números coincidentes son' TRANSFORM(lnc) 'La suma de los números impares es:' TRANSFORM(lnq)
ENDIF