其实,这题很水
我们每次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.