记录编号 75970 评测结果 AAAAAAAAAA
题目名称 [NOIP 2011]统计单词数 最终得分 100
用户昵称 Gravatar张铭哲 是否通过 通过
代码语言 Pascal 运行时间 0.541 s
提交时间 2013-10-29 19:12:11 内存使用 0.17 MiB
显示代码纯文本
var
a,c:ansistring;
b:ansistring;
i,j,k,sum:longint;
procedure xx(var a:ansistring);
var
i:longint;
c:ansistring;
begin
  for i:=1 to length(a) do c:=c+lowercase(a[i]);
  a:=c;
end;
begin
assign(input,'stat.in');
reset(input);
assign(output,'stat.out');
rewrite(output);
k:=-1;
readln(a);
readln(b);
xx(a);
xx(b);
for i:=1 to length(b) do
if b[i]=' ' then
  begin
    if  c=a then begin inc(sum);  if k=-1 then k:=i-length(a)-1; end;
    c:='';
  end else
  c:=c+b[i];
if sum=0 then writeln(-1)
else writeln(sum,' ',k);
end.