摘要:
program ex1543;var n,m,t,w,i:integer; a,b:array[1..200] of integer;procedure gjc;var i:integer;begin for i:=1 to t do a[i]:=a[i]*2; t:=1; while a[t]<> 阅读全文
摘要:
program ex1807;var n,i,j,t,f,l,q,z:integer;s1,s2:longint; a:array[1..20,1..20] of integer;begin readln(n); t:=1; f:=1; l:=n;i:=1;q:=1;z:=n; while t<=n 阅读全文
摘要:
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[ 阅读全文