| | | |

2011年10月31日

二分答案

摘要：二分答案阅读全文

posted @ 2011-10-31 13:06 xj9502 阅读(250) 评论(0) 推荐(0) 编辑

模拟

摘要： varst,xm,xm1,qmm,bjj,lww:string;code,len,i,j,n,m,qm,bj,lw,s,zs,sc:longint;gb,xb:char;function sss:string;vari,l:longint;begini:=0; l:=j;while st[j]<>' ' do begininc(i); inc(j);end;sss:=copy(st,l,i);end;beginreadln(n);for i:=1 to n do begin s:=0; readln(st); len:=length(st); st[len+1]:= 阅读全文

posted @ 2011-10-31 12:37 xj9502 阅读(208) 评论(0) 推荐(1) 编辑