Question

设x,y,z均为正整数,求不定方程组x+y+z=20,25x+20y+13z=400共有多少组解,求VB程序！！！在线等！！！！

Answer 1

x到16就行了
for x=0 to 16
for y=0 to 20
if 25*X+20*Y+13*(20-x-y)=400 then
print X
print Y
print (20-x-y)
end if
next
next

Answer 2

for x=0 to 20
for y=0 to 20
if 25*X+20*Y+13*(20-x-y)=400 then
print X
print Y
print (20-x-y)
end if
next
next