编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

---|---|---|---|---|---|---|---|-

同样的题交了两次才AC,测评机啊!!!

var

s,s1,s2:ansistring;

i,m,n,p,j:longint;

begin

readln(s);

read(m,n,p);

s1:='';

s2:='';

for i:=1 to m-1 do

s1:=s1+s[i];

for i:=m to length(s) do

s2:=s2+s[i];

if n=1 then

begin

for i:=1 to length(s) do

if s[i] in ['a'..'z'] then

s[i]:=upcase(s[i]) else

if s[i] in ['A'..'Z'] then

s[i]:=chr(ord(s[i])+32);

s:=s+'Immorta1';

for i:=1 to length(s) do

for j:=1 to p+1 do

write(s[i]);

end;

if n=2 then

begin

while pos(s2,s)>0 do

delete(s,pos(s2,s),length(s2));

while pos('1013',s)>0 do

begin

insert('hh4742',s,pos('1013',s));

delete(s,pos('1013',s),4);

end;

for i:=1 to length(s) do

for j:=1 to p+1 do

write(s[i]);

end;

if n=3 then

begin

insert(s2,s1,abs(n-m)-1);

for i:=1 to length(s1) do

for j:=1 to p+1 do

write(s1[i]);

end;

end.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：运行超时|格式错误...

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：95 有效耗时：0ms

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：运行超时|无输出...

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

第一次RP了 第二次才过

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

---|---|---|---|---|---|---|---|-

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

---|---|---|---|---|---|---|---|

Accepted 有效得分：100 有效耗时：0ms

……Vijos评测机太强了，本来15，16两点格式错误，结果去看题解时发现，已经AC了……

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

#include

main()

{

double l,v,s,t;

scanf("%f%f",&l,&v);

s=2.0/3.0*l;

t=s/v;

printf("%.1f\n%.1f",s,t);

return 0;

}

水货，不过一开始我用float型米用double只有80分WA，呜呜呜！水题都弄2回才杀到弓箭手

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

AC，哈哈 提交12次 2次60 4次70 1次80 2次90 2次95 然后AC

郁闷啊

program mm;

var

s,s1,s2:ansistring;

i,j,k,l,m,n,p:longint;

check:boolean;

begin

readln(s);

readln(m,n,p);

s1:=copy(s,1,m-1);

s2:=copy(s,m,length(s));

if (s2=s) and (n=3) then begin

for i:=1 to length(s2) do

for j:=1 to p+1 do

write(s[i]);

writeln;

halt;

end;

if n=1 then begin

i:=1;

check:=false;

while i=97) and (ord(s[i])length(s) then break;

if (ord(s[i])>=65) and (ord(s[i])length(s) then break;

if check=false then inc(i);

check:=false;

end;

s:=s+'Immorta1';

end;

if n=2 then begin

while pos(s2,s)0 do begin

k:=pos(s2,s);

delete(s,k,length(s2));

end;

while pos('1013',s)0 do begin

k:=pos('1013',s);

delete(s,k,4);

insert('hh4742',s,k);

end;

end;

if n=3 then begin

insert(s2,s,abs(n-m));

delete(s,m+length(s2),length(s2));

end;

for i:=1 to length(s) do

for j:=1 to p+1 do

write(s[i]);

writeln;

end.

哪位能帮忙找找错在哪儿，小女子谢了

program p1405;

var s,a,b:ansistring;

i,j,l,k:longint;

n,m,p:integer;

begin

readln(s) ;

readln(m,n,p);

a:=copy(s,1,m-1);

b:=copy(s,m,l+1-m);

l:=length(s) ;

case n of

1:begin

for i:=1 to l do

begin

if (ord(s[i])>=97) and (ord(s[i])

彻底⊙﹏⊙b汗~

同样程序交了n遍

第一次 第十六点TLE！

小号试 秒杀！！

第二次 第一点TLE！！！

第三次 终于ac了！！！！

if （ansistring不稳定） or （vijos评测机太强大）or（rp太低） then 去补rp；

调程序时把ansistring改成string没改回来就交上去，WA了两次...............

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

var s,sa,sb:ansistring;

a,b,c:integer;

i,j:integer;

begin

readln(s);

read(a,b,c);

sa:=copy(s,1,a-1);

sb:=copy(s,a,2000);

case b of

1:

begin

for i:=1 to length(s) do

begin

if ord(s[i]) in [65..90] then s[i]:=chr(ord(s[i])+32)

else if ord(s[i]) in [97..122] then s[i]:=chr(ord(s[i])-32);

end;

s:=s+'Immorta1';

end;

2:

begin

while pos(sb,s)0 do delete(s,pos(sb,s),length(sb));

while pos('1013',s)0 do

begin

insert('hh4742',s,pos('1013',s));

delete(s,pos('1013',s),4);

end;

end;

3:

begin

delete(s,a,2000);

insert(sb,s,abs(b-a));

end;

end;

for i:=1 to length(s) do

for j:=0 to c do

write(s[i]);

end.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

.....水...

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

program vj1045;

var

str,a,b,final:ansistring;

m,n,p,l,la,lb:integer;

procedure init;

begin

assign(input,'input.txt');

assign(output,'output.txt');

reset(input);

rewrite(output);

readln(str);

l:=length(str);

readln(m,n,p);

a:=copy(str,1,m-1);

b:=copy(str,m,l);

final:=str;

lb:=length(b);

end;

procedure main;

var

i,j:integer;

begin

case n of

1:begin

for i:=1 to l do

if (ord(str[i])=65)

then str[i]:=char(ord(str[i])+32)

else str[i]:=upcase(str[i]);

str:=str+'Immorta1';

end;

2:begin

while pos(b,str)0 do

delete(str,pos(b,str),lb);

while pos('1013',str)0 do

begin

j:=pos('1013',str);

delete(str,j,4);

insert('hh4742',str,j);

end;

end;

3:begin

if n-m0 then begin

insert(b,a,abs(n-m));

str:=a;

end;

end;

end;

end;

procedure print;

var

i,j,k:integer;

begin

final:=str;

k:=length(final);

for j:=1 to k do

for i:=1 to p+1 do

write(final[j]);

close(input);

close(output);

end;

begin

init;

main;

print;

end.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

#include

#include

#include

using namespace std;

int main()

{

string s;

char s1[2000],s2[2000];

int m,n,p,i,j,pos;

string a,b;

cin >> s;

cin >> m >> n >> p;

for(i=0;i

为什么第11个点输出答案比正确答案长？

ss

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：运行超时|格式错误...

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：95 有效耗时：0ms

怎么过...第16个点,无语啊

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

一组数据

exit

1 3 3

这个过了第 18 19 组就过了

‘1013’改成‘hh4742’。

只加了‘hh4742’，没把‘1013’删了，死循环……

然怪说怎么超时了。。。

挺简单的啊……

只要用ansistring就行了，剩下的就是基本的字符串操作。

挺麻烦的...