SSL P2384 2014年初中竞赛试题(南海) 字符串

题解：
1.每次找到bear的位置i。
2.找到以后把以它(i,i+3)为中心的2边的的字符数量乘积加起来。
3.把字符串的1~i删了，避免下一次寻找的重复累加。
时间复杂度:O(N)

var
    s:ansistring;
    i,n,ans:longint;
begin
     readln(s);
     i:=pos('bear',s);
     while i<>0 do
           begin
               ans:=ans+i*(length(s)-(i+3)+1);
               delete(s,1,i);
               i:=pos('bear',s);
           end;
     writeln(ans);
end.