摘要: var s:ansistring; cas:longint; function minp(st,len:longint):longint; var p1,p2,k,tmp:longint; begin p1:=0; p2:=1; k:=0; while ((p1p2) then exit(p2+st) else exit(p1+st); end; begin re... 阅读全文
posted @ 2015-04-28 10:19 rpSebastian 阅读(229) 评论(0) 推荐(0) 编辑