VBScript (用循環嵌套和判斷語句)

for y=0 to 100

if x*4+y*1=100 then exit for

Next

Next

if x<>100 and y<>100 then

Response.Write("大和尚"&x&"個,小和尚"&y&"個")

else

Response.Write("無解")

end if