181818181818 2008-08-23 06:02:00
点我顶贴
收藏
删除
program rqnoj278；
var c1,c2,x1,x2,y1,y2,x,y:extended；
begin
readln(x1,y1,c1)；
readln(x2,y2,c2)；
y:=(c2-x2*c1/x1)/(y2-y1*x2/x1)；
x:=(c1-y1*y)/x1；
if(trunc(x)=x)and(trunc(y)=y)then }write(x:0:0,’ ’,y:0:0)
else write(’NO INTEGER ROOT’)；
end.
完全按公式做的啊？