如何用mathematica枚举出10选2的排列组合？

Solve[x~#~y==z&&0<={x,y,z}<=9,{x,y,z},Integers]/.{x->a_,y->b_,z->c_}->Defer[a~#~b=c]&/@{Plus,Subtract}

Cases[DeleteCases[
Flatten[Cases[Permutations[Range[0, 9], {2}],
x_ :> {{x, "+", Plus @@ x}, {x, "-", Subtract @@ x}}], 1],
x_ /; Not@MemberQ[Range[0, 9], x[[3]]]],
x_ :> ToString[x[[1, 1]]] <> x[[2]] <> ToString[x[[1, 2]]] <> "=" <>
ToString[x[[3]]]] // TableForm