老师好，我刚接触这个软件，这道题对于我来说很难，请老师帮帮我，谢谢！
我计算的目的是：
A=x^2+y^2，1<x<100，1<y<100
找出当 A 是不能被3整除的整数时，x=?，y=?，A=?
答案举例：x=2，y=2，A=8（8是不能被3整除的整数）

Do[Do[If[Mod[(x^2 + y^2), 3] != 0,
Print["x=", x, ",y=", y, ",A=", x^2 + y^2]], {x, 2, 99}], {y, 2, 99}]
两个Do取x和y的循环,If结合Mod做条件判断

Solve[A == x^2 + y^2 && 1 < x < 100 && 1 < y < 100 &&
A~Mod~3 != 0, {x, y, A}, Integers]
直接解方程，就是有点慢！

这样写快一些
Solve[{Mod[x^2+y^2,3]==1||Mod[x^2+y^2,3]==2,1<x<100,1<y<100},{x,y},Integers]//Length//AbsoluteTiming
Solve[{A==x^2+y^2,1<x<100,1<y<100,Mod[A,3]==1||Mod[A,3]==2},{x,y,A},Integers]//Length//AbsoluteTiming

Block[{grid = Tuples[Range[2, 99], 2]},
Select[{Sequence @@#, #.
#} & /@ grid, Mod[Last[#
], 3] != 0 &]
]

Flatten[Table[
If[x~Mod~3 == y~Mod~3 == 0, Nothing, {x, y}], {x, 2, 99}, {y, 2,
99}], 1]

这真让我长见识了，在追求正解的同时进一步在速度上进行不断优化！谢谢各位老师！

这个题不难啊，就100个数，用循环来遍历一边不就行了。