摘要: var a,f:array[1..10000000] of longint; b,i,j,n,s,x,y:longint;begin read(b,n); for i:=1 to n do a[i]:=0; for i:=1 to n do begin readln(x,y); a[x]:=1-a[ 阅读全文
posted @ 2017-06-27 09:23 Steven·Skywalker 阅读(836) 评论(0) 推荐(0)