ans = Solve[{x^2 + y + z == 1, x^2 - y + z == 3, x^2 + y - z == 5}, {x, y, z}] Map[CoordinatesFromCartesian[{x, y, z} /. #, Spherical] {1, HoldForm[Degree]/(Pi / 180), HoldForm[Degree]/(Pi / 180)} &, ans]
など。
>>449 list = {2} Append[list, 3] list と入力すると何がおこるでしょう?