[洛谷1580]yyy loves Easter_Egg I

题目背景

Soha的出题效率着实让人大吃一惊。OI，数学，化学的题目都出好了，物理的题还没有一道。于是，Huntfire，absi2011，lanlan对soha进行轮番炸，准备炸到soha出来，不料，人群中冲出了个kkksc03……

题目描述

var c,d,e:longint;  //c:队形长度;d:'@'位置;e:b的长度
a,b:ansistring;  //a:输入的字符串;b:@的人

begin
readln(a);
a:=a+' ';
c:=2;
d:=pos('@',a);
b:='yyy loves ';
e:=d+11;
while a[e]<>' ' do begin  //确定b
b:=b+a[e];
inc(e);
end;
b:=b+' ';  //便与判断
e:=length(b);
readln(a);
while a<>'' do begin  //如果@的人出现就输出
if copy(a,1,e)=b then begin
writeln('Successful @'+b+'attempt');
halt;
end;
d:=pos('@',a);
if (copy(a,d+1,e)<>b) and (copy(a,d+1,e)+' '<>b) or (d=0) then begin  //如果 @的不是同一个人 或 没有@人 就输出(特判'@某某某'出现在结尾且无空格的情况)
writeln('Unsuccessful @'+b+'attempt');
writeln(c);
writeln(copy(a,1,pos(':',a)-1));
halt;
end;
delete(a,d,1);  //删除'@'
if pos('@',a)<>0 then begin  //如果还有'@'即@了不止一个人就输出
writeln('Unsuccessful @'+b+'attempt');
writeln(c);
writeln(copy(a,1,pos(':',a)-1));
halt;
end;
readln(a);
inc(c);
end;
writeln('Unsuccessful @'+b+'attempt');  //队形未打破但@的人未出现,输出
writeln(c-1);
writeln('Good Queue Shape');
end.

View Code