DavidZheng0621的博客

type sz=array[0..503] of longint; var i,t:longint; s,s1:ansistring; a,b:sz; procedure jia(a,b:sz); var i,t:longint; c:sz; begin fillchar(c,sizeof(c),0); if a[0]>b[0] then t:=a[0]

procedure ok(l,r:longint); var i,j,k,t:longint; begin i:=l; j:=r; k:=a[(i+j) div 2]; while i<=j do begin while a[i]<k do inc(i); while a[j]>k do dec(j); if i<=j