第十个数据不对

RT,请管理员尽快核查

3 条评论

  • @ 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

信息

ID
1405
难度
6
分类
字符串 | 模拟 点击显示
标签
(无)
递交数
1362
已通过
344
通过率
25%
被复制
3
上传者