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.