19 lines
446 B
Plaintext
19 lines
446 B
Plaintext
LET monton = 12
|
|
LET llevar = 0
|
|
|
|
DO WHILE monton > 0
|
|
PRINT "Quedan"; monton; "fichas. ¿Cuántas te gustaría tomar";
|
|
INPUT llevar
|
|
DO WHILE llevar = 0 Or llevar > 3
|
|
PRINT "Debes tomar 1, 2, o 3 fichas. ¿Cuántas te gustaría tomar";
|
|
INPUT llevar
|
|
LOOP
|
|
|
|
PRINT "Es mi turno, tomaré"; 4-llevar; "ficha(s)."
|
|
LET monton = monton - 4
|
|
LOOP
|
|
|
|
PRINT
|
|
PRINT "Obtuve la última ficha. ¡Gané! Mejor suerte la próxima vez."
|
|
END
|