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

本文主要是介绍2017.6.4 入门组 NO.3——字符串，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

---

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

---

代码如下：

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

这篇关于2017.6.4 入门组 NO.3——字符串的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---