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

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

题目：

作者思路：水题一道。
pos(‘bear’,st)找位置
算出包含字串的个数。

代码：

var st:ansistring;ans:longint;
beginread(st);while pos('bear',st)<>0 dobeginans:=ans+pos('bear',st)*(length(st)-(pos('bear',st)+3)+1);delete(st,1,pos('bear',st));end;write(ans);
end.