16a+11b+5c
+3
d=720
a取值为0至45的自然数
b取值为0至65的自然数
c取值为0至144的自然数
d取值为0至240的自然数
求所有可能的解

我完全按照你的内容写的 出来的却是这个

For[a = 0, a <= 45, a++,
For[b = 0, b <= 65, b++,
For[c = 0, c <= 144, c++,
For[d = 0, d <= 240, d++,
If[16 a + 11 b + 5 c + 3 d == 720,
Print["a=", a, " ; ", "b=", b, " ; ", "c=", c, " ; ", "d=",
d]]]]]]

楼主像是要烧人家的电脑

IntegerPartitions[720, All, {16, 11, 5, 3}]

SeriesCoefficient[1/((1 - x^3) (1 - x^5) (1 - x^11) (1 - x^16)), {x,
0, 720}]