- 古韵之同心锁
- 2013-02-05 07:36:32 @
RT,请管理员尽快核查
3 条评论
-
knif LV 6 @ 2016-07-23 15:20:28
// input code here ```怎么看数据。
-
2015-11-06 16:17:57@
求解第十个点死都过不了。。
测试数据 #0: Accepted, time = 0 ms, mem = 916 KiB, score = 5
测试数据 #1: Accepted, time = 15 ms, mem = 876 KiB, score = 5
测试数据 #2: Accepted, time = 0 ms, mem = 876 KiB, score = 5
测试数据 #3: Accepted, time = 0 ms, mem = 984 KiB, score = 5
测试数据 #4: Accepted, time = 0 ms, mem = 1244 KiB, score = 5
测试数据 #5: Accepted, time = 0 ms, mem = 1244 KiB, score = 5
测试数据 #6: Accepted, time = 15 ms, mem = 952 KiB, score = 5
测试数据 #7: Accepted, time = 0 ms, mem = 1244 KiB, score = 5
测试数据 #8: Accepted, time = 0 ms, mem = 876 KiB, score = 5
测试数据 #9: Accepted, time = 0 ms, mem = 880 KiB, score = 5
测试数据 #10: WrongAnswer, time = 0 ms, mem = 1244 KiB, score = 0
测试数据 #11: Accepted, time = 0 ms, mem = 1244 KiB, score = 5
测试数据 #12: Accepted, time = 15 ms, mem = 952 KiB, score = 5
测试数据 #13: Accepted, time = 0 ms, mem = 912 KiB, score = 5
测试数据 #14: Accepted, time = 7 ms, mem = 1244 KiB, score = 5
测试数据 #15: Accepted, time = 21 ms, mem = 1212 KiB, score = 5
测试数据 #16: Accepted, time = 1 ms, mem = 1248 KiB, score = 5
测试数据 #17: Accepted, time = 4 ms, mem = 1248 KiB, score = 5
测试数据 #18: Accepted, time = 0 ms, mem = 840 KiB, score = 5
测试数据 #19: Accepted, time = 15 ms, mem = 1244 KiB, score = 5
WrongAnswer, time = 93 ms, mem = 1248 KiB, score = 95
Program P1405;
Var s,a,b,ss:ansistring;
m,n,p:longint;
i,j,len,lena,lenb:longint;Begin
readln(s); readln(m,n,p);
len:=length(s);
a:=copy(s,1,m-1); lena:=length(a);
b:=copy(s,m,len); lenb:=length(b);
case n of
1:begin
for i:=1 to len do
if (s[i]>='a') and (s[i]<='z') then s[i]:=upcase(s[i])
else if (s[i]>='A') and (s[i]<='Z') then s[i]:=chr(ord(s[i])+32);
s:=s+'Immorta1';
end;
2:begin
for i:=1 to len-lenb+1 do
if copy(s,i,lenb)=b then delete(s,i,lenb);
for i:=1 to len-3 do
if copy(s,i,4)='1013' then begin
delete(s,i,4);
insert('hh4742',s,i);
end;
end;
3:begin
insert(b,a,abs(n-m));
s:=a;
end;
end;
len:=length(s);
if p<>0 then begin
for i:=1 to len do
for j:=1 to p+1 do ss:=ss+s[i];
writeln(ss);
end
else writeln(s);
end. -
2013-02-05 10:12:45@
如果有其他人AC的情况,请首先检查自己的代码是否正确谢谢。。
我们这边查看了之前的讨论,用之前几个代码尝试提交发现并无问题。
- 1