编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案错误... ├ 标准行输出
├ 错误行输出
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：90 有效耗时：0ms
看很多人都是90分、、、
咋改啊
2 条评论
-
YY_0227 LV 8 @ 2009-08-02 16:23:38
教教
rt
-
@ 2009-08-01 20:06:27
( ⊙ o ⊙ )啊！
大家帮帮忙
Program P1482;
var
n, i : longint;
Procedure work;
var
s, us, as : string;
ch : char;
p, dp : longint;
begin
randomize;
readln(s);
us := s;
p := 0;
while (p = 0) and (us '') do
begin
ch := us[1];
delete(us, 1, 1);
p := pos(ch, us);
end;
if us = '' then
begin
writeln('safe');
exit;
end;
as := copy(us, 1, p-1);
dp := p;
p := 0;
while (p = 0) and (as '') do
begin
ch := as[1];
delete(as, 1, 1);
p := pos(ch, as);
end;
if p > 0 then
begin
writeln('de1ete');
exit;
end;
delete(us, 1, dp);
p := 0;
while (p = 0) and (us '') do
begin
ch := us[1];
delete(us, 1, 1);
p := pos(ch, us);
end;
if us = '' then writeln('safe') else writeln('de1ete');
end;
begin
readln(n);
for i := 1 to n do work;
end.
这是程序。。。
- 1
