Comprobar

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

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

Otro ejercicio

b = Random(-5, 4)
c = Segment((-8, 0), (10, 0))
r = 1.74
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]) + ""
texto4: "{" + (LaTeX[a]) + "}\," + (LaTeX[opT]) + "\,{" + (LaTeX[If[b  <  0, "(" + b + ")", b + ""]]) + "}\,=\," + (LaTeX[If[x(C) > 0, "{", If[x(C) ≟ 0, "{", "{"]]]) + "" + (LaTeX[x(C)]) + "}"