大家好,今天小六子来为大家解答以下的问题，关于jxzz网这个很多人还不知道，现在让我们一起来看看吧！

1、var a,b:integer;begin for a:=0 to 50 do begin b:=50-a; if 2*a+4*b=160 then begin writeln(a,,b); end; end;end.。

本文分享完毕，希望对你有所帮助。