129 条题解
-
0
pzy3303 LV 10 @ 2008-10-01 09:16:48
居然输出的是转换前的字符串
-
0
program t1;
var a:array[1..3000] of ansistring;
ttpp,
rpc,tmp:ansistring;
s,tf,ttf,n,max,i,j:longint;begin
max:=0;
readln(n);
for i:=1 to n do begin
readln(tmp);
a[i]:='';
for j:=length(tmp) downto 1 do begin
a[i]:=a[i]+tmp[j];
end;
end;
for i:=1 to n do begin
ttpp:=a[i];
tf:=pos('jszxoier',a[i]);
if tf0 then begin
ttf:=pos('cow',a[i]);
while ttf0 do begin
delete(a[i],ttf,3);
insert('bird',a[i],ttf);
ttf:=pos(a[i],'cow');
end;
s:=0;
for j:=1 to length(a[i]) do begin
if a[i][j]='r' then inc(s,5);
if a[i][j]='p' then inc(s,5);
if jlength(a[i]) then if (a[i][j]='r') and (a[i][j+1]='p') then inc(s,20);
end;
if (s>max)or ( (s=max) and (length(rpc)>length(a[i])) )
then begin
max:=s;
rpc:=ttpp;
end;
end;
end;for i:=length(rpc) downto 1 do
write(rpc[i]);
writeln;
writeln(max);end.
-
-1
编译通过...
├ 测试数据 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___|\__|\__|\__|\__|\__|\__|\__|\__|\__|\__|\__|\__|
太Rp了。我用血的代价告诉大家：
不要忘拷斜杠'\0'
for( j = 0; j -
-1
乍似AC
编译通过...
├ 测试数据 01：运行超时|无输出...
├ 测试数据 02：运行超时|无输出...
├ 测试数据 03：运行超时|无输出...
├ 测试数据 04：运行超时|无输出...
├ 测试数据 05：运行超时|无输出...
├ 测试数据 06：运行超时|无输出...
├ 测试数据 07：运行超时|无输出...
├ 测试数据 08：运行超时|无输出...
├ 测试数据 09：运行超时|无输出...
├ 测试数据 10：运行超时|无输出...
├ 测试数据 11：运行超时|无输出...
├ 测试数据 12：运行超时|无输出...
├ 测试数据 13：运行超时|无输出...
├ 测试数据 14：运行超时|无输出...
├ 测试数据 15：运行超时|无输出...
├ 测试数据 16：运行超时|无输出...
├ 测试数据 17：运行超时|无输出...
├ 测试数据 18：运行超时|无输出...
├ 测试数据 19：运行超时|无输出...
├ 测试数据 20：运行超时|无输出...
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：0 有效耗时：0ms
pzy3303
LV 10
@ 2008-10-01 09:16:48
