level 11
John_Steve_C
楼主
var
x,y:longint;
begin
for x:=-10000 to 10000 do
for y:=-10000 to 10000 do
if (方程1) and (方程2) then
begin writeln(x,' ',y); halt: end;
writeln('wujie');
end.
2016年09月03日 13点09分
1
x,y:longint;
begin
for x:=-10000 to 10000 do
for y:=-10000 to 10000 do
if (方程1) and (方程2) then
begin writeln(x,' ',y); halt: end;
writeln('wujie');
end.