这是主程序
begin
fillchar(f,sizeof(f),0);
readln(n);
readln(m);
while m<>3 do
begin
if m=1 then begin read(x,y,k);add(x,y,k);end;
if m=2 then begin read(x1,y1,x2,y2);writeln(check(x1,y1,x2,y2));end;
readln(m);
end;
end.
输入的时候
4
1 2 2 5
2 0 0 2 3
3
就没输出
4
1
2
2
5
2
0
0
2
3
3
就有答案

read(x,y,k)和read(x1,y1,x2,y2)改readln也一样的

我突然明白了我问了个多水的问题