- 博客(3)
- 收藏
- 关注
原创 TYVJ 1052 没有上司的舞会
var f:array[0..6000,0..1]of longint; l,r,a:array[0..6000]of longint; v:array[0..6000]of boolean; n,ans:longint; function max(a,b:longint):longint; begin if a>b then exit(a) else exit(b);end; fu
2012-11-02 12:25:50
470
原创 tyvj 1001 第K极值
var a:array[1..10000]of longint; procedure qsort(l,r:longint); var i,j,x,t:longint; begin i:=l;j:=r;x:=a[(l+r)>>1]; repeat while a[i]<x do inc(i); while a[j]>x do dec(j); if i<=j then begin
2012-11-01 19:35:07
635
原创 tyvj 1000 a+b problem
var a,b:longint; begin readln(a,b); writeln(a+b); end.
2012-11-01 15:33:07
171
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人