测评机: Xeond[6]
得分: 40分
提交日期: 2012-7-5 20:56:00
有效耗时: 702毫秒
测试结果1: 通过本测试点|有效耗时218ms
测试结果2:
测试结果3:
测试结果4:
测试结果5: [RQNOJ1]通过本测试点|有效耗时218ms[/RQNOJ1][RQNOJ2]测试结果错误.错误结果为:ZGJKLPTY ZGJK
测试结果6: 测试结果错误.错误结果为:ABCDEFG
ABCD</tr><tr><td>测试结果7:</td><td><span style="color: #00CC00">通过本测试点|有效耗时156ms</span></td></tr><tr><td>测试结果8:</td><td><textarea name="textarea3" cols="60" rows="2">测试结果错误.错误结果为:ZGJKLPTY
ZGJK</tr><tr><td>测试结果9:</td><td><textarea name="textarea3" cols="60" rows="2">测试结果错误.错误结果为:ONMLKJIHGFEDCBA
IJKLMNOGFEDCBA
IJKLMNO</tr><tr><td>测试结果10:</td><td><span style="color: #00CC00">通过本测试点|有效耗时172ms</span></td></tr>
<tr>
<td valign="top">提交代码:</td>
<td><pre class="brush: delphi">var i,j,l1,l2,x,l,n:integer;
s,q:string;
ss:char;
begin
readln(s);
writeln(s);
readln(n);
for i:=1 to n do
begin
readln(ss);
x:=pos(ss,s);
l:=length(s);
l1:=l-x;
l2:=x-1;
if l1>=l2 then
begin
q:=copy(s,1,x-1);
delete(s,1,x);
for j:=1 to length(q) do
s:=q[j]+s;
end
else begin
q:=copy(s,x+1,l-x);
delete(s,x,l+1-1);
for j:=1 to length(q) do
s:=s+q[l+1-j];
end;
if s<>'' then writeln(s);
end;
end.
</pre></td>
</tr>
</table>
<script type="text/javascript">
SyntaxHighlighter.config.clipboardSwf = 'script/clipboard.swf';
SyntaxHighlighter.all();
</script>
</div>
</div><div id="footer">
Powered By <a href="http://Www.1992y.Com" target="_blank"> RenQing</a> | Developping By <a href="/AboutUser.asp?UID=1564">Wish</a> <a href="http://www.azuis.me/blog" target="_blank">Azuis</a>
<script src="http://count.renqingnet.com/count/1/mystat.asp?siteid=57"></script>
<a href="/Help.asp">帮助</a> <a href="/About.asp">关于</a>
<div align="center"><a href="http://www.miibeian.gov.cn" target="_blank">鲁ICP备05014231号</a></div></td>
Processed in 0.109375 second(s).
Copyright (c) 2007-2009 <a href="http://Www.RQNOJ.Cn">Www.RQNOJ.Cn</a>. All Rights Reserved .</td>
</div>
</div>
</BODY></HTML>
有的是空着的?!!
囧,是个bug。
不正常的状态已经为您删除,深表抱歉。
我们修复一下= =,以前还木有这种问题。。。