zsx 2009-04-24 22:04:00
点我顶贴
收藏
删除
program aa；
var a,b,i,j,ab,cd,c,x,d:integer；r:array[1..2] of integer；
begin
read(a,b,ab)；
read(c,d,cd)；
for i:=-1000 to 1200 do
for j:=-1000 to 1200 do
if (i*a+b*j=ab)and(i*c+d*j=cd) then begin r[1]:=i；
r[2]:=j；x:=1；end；
if x=1 then write(r[1],’ ’,r[2])
else write(’NO INTEGER ROOT’)；
end.