Comprobar

La operación no está bien. Grrr...revísala.

¡La operación está bien! Grrr... ¡Enhorabuena! 

Otro ejercicio

b = Random(-5, 4)
r = 1.74
c = Segment((-9, 0), (10, 0))
C = Point(c)
lista1 = Sequence(Translate[rama, Vector[(0, 0), ((s * r), 0)]], s, -7, 8)
a = Random(-4, 5)
d = false
A = (-7.86, 5.78)
C1: C
C2: C
C3: C
op = Random(1, 2)
opT = If(op ≟ 1, "+", "-")
bien: d ∧ (op ≟ 1 ∧ a + b ≟ x(C) ∨ op ≟ 2 ∧ a - b ≟ x(C))
mal: d ∧ (¬bien)
puntos:0
intentos:0
texto3: "Aciertos: " + (LaTeX[puntos]) + "/" + (LaTeX[intentos]) + ""
a1 = Random(-3, 4)
b1 = Random(-3, 4)
a2: a - a1
b2: b - b1
texto4_1: "" + (LaTeX[a1]) + "\,+\," + (LaTeX[If[a2  <  0, "(" + a2 + ")", a2 + ""]]) + "\," + (LaTeX[opT]) + "\," + (LaTeX[If[b1  <  0, "(" + b1 + ")", b1 + ""]]) + "\," + (LaTeX[opT]) + "\," + (LaTeX[If[b2  <  0, "(" + b2 + ")", b2 + ""]]) + " \,=\," + (LaTeX[x(C)]) + ""