Para apreciar esta página correctamente, debes instalar Fa-122Doc.ttf en tu computadora

Título: £¤+-
Autor: Jorge Cevallos Manzano 
Modelo: CFX9850 (Hecho en CFX9850Ga+)
Descripción: Coloque los símbolos £, ¤, +, ó -, para formar el número indicado. Se debe tomar en cuenta que las operaciones son de izquierda a derecha y no dando preferencia a la multiplicación y división.

Bajar programa

'Desde 1 Hasta:12‡T·
'(Tope‡99)·
ClrText·
0‡I~K:5‡Dim List 1·
For 1‡A To 5·
T>99î"Maximo hasta: 99"·
T>99îStop·
Int TRan#+1·
Locate 3A+2,3,Ans·
Ans‡List 1[A·
Next·
List 1[1‡R·
4‡Dim List 2·
For 2‡A To 5·
1+Int 4Ran#‡B·
B‡List 2[A-1·
B=1îRList 1[A‡R·
B=2îR¡List 1[A‡R·
B=3îR+List 1[A‡R·
B=4îR-List 1[A‡R·
Next·
Locate 1,1,"Formar:"·
Locate 9,1,R·
Lbl 0·
List 1[1‡S·
Isz I·
For 2‡A To 5·
Do·
Locate 3A+1,4,"-"·
Locate 3A+1,4," "·
Getkey·
Ans=29î2‡A·
If Ans=29 Or K·
Then Locate 8,7,"Fallado"·
0‡J·
Isz K·
79·
IfEnd·
Ans=79îJî0·
LpWhile Ans¬43 And Ans¬33 And Ans¬42 And Ans¬32 And Ans¬79·
If Ans=79·
Then List 2[A-1·
Ans=1î43·
Ans=2î33·
Ans=3î42·
Ans=4î32·
K=0îIsz J·
IfEnd·
Ans=43îLocate 3A+1,3,"£"·
Ans=43îSList 1[A‡S·
Ans=33îLocate 3A+1,3,"¤"·
Ans=33îS¡List 1[A‡S·
Ans=42îLocate 3A+1,3,"+"·
Ans=42îS+List 1[A‡S·
Ans=32îLocate 3A+1,3,"-"·
Ans=32îS-List 1[A‡S·
Next·
Locate 10,5," "·
Locate 1,5,"Formado:"·
KîR‡S·
Locate 10,5,S·
KîStop·
R¬SîGoto 0·
Locate 1,7,"Intentos:"·
Locate 11,7,I