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.
完全按公式做的啊?
我用real都过
快速帮助 | 运行状态 | 反馈举报 | 关于我们 | 免责声明 | 浙ICP备11060257号 Processed in 0.0037 Second(s) Copyright (C) RQNOJ 2007-2019. All Rights Reserved.