辉哥 2013-11-08 17:16:01
点我顶贴
收藏
删除
var s,a:ansistring;
i,j,n,m,k,ans:longint;
c:char;
begin
readln(s);
ans:=0;
s:=lowercase(s);
j:=0;
while not eoln do
begin
a:='';
read(c);
m:=1;
while (c<>' ')and(not eoln) do
begin
a:=a+c;
read(c);
m:=m+1;
end;
a:=lowercase(a)+' ';
if a=s then
begin
inc(ans);
if ans=1 then k:=j;
end;
j:=m+j;
end;
if ans<>0 then
writeln(ans,' ',k)
else writeln(-1);
end.