2011年10月31日
摘要：
二分答案 阅读全文
posted @ 2011-10-31 13:06
xj9502
阅读(254)
评论(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
阅读(223)
评论(0)
推荐(1)