2017.6.4 入门组 NO.3——字符串

---

其实，这题很水
我们每次pos到一个”bear”,就将其前后多余的相乘，就得出包含这个”bear”的单词数。
为了避免重复计算，我们每次做完一个”bear”,就delete掉

---

代码如下：

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