1. 字符串
(string.cpp/c/pas)
【问题描述】
小熊有一个由小写英文字母组成的字符串s = s1s2...sn。小熊想要计算s中有多少子串包含字符串“bear”，也就是找出满足字符串x(i, j)= sisi+1…sj 包含至少一个字符串“bear”的 (i, j)对数（1≤i≤j≤n）。
字符串x(i,j)包含字符串“bear”定义为存在一个整数k（i≤k≤j-3），满足sk=b，sk+1=e，sk+2=a，sk+3=r。
请帮助小熊解决这个问题。
【输入】
输入文件名为string.in。
输入共1行，包含一个非空字符串s。数据保证字符串s中只包含小写英文字母。
【输出】
输出文件名为string.out。
输出共1行，包含一个整数，表示这个问题的答案。
【输入输出样例】
string.in
string.out
bebearar
9
【输入输出样例说明】
符合条件的9对(i,j)为：(1，6)，(1，7)，(1，8)，(2，6)，(2，7)，(2，8)，(3，6)，(3，7)，(3，8)。
【数据说明】
对于50%的数据，1≤n≤200。
对于100%的数据，1≤n≤3000。
分析：
暴力解决。
代码：
var s:ansistring; f,a:array[0..5000]of longint; i,j,n,ans:longint; begin assign(input,'string.in');reset(input); assign(output,'string.out');rewrite(output); readln(s); n:=length(s); for i:=1 to n do begin f[i]:=f[i-1]; if(s[i]='b')and(s[i+1]='e')and(s[i+2]='a')and(s[i+3]='r') then begin inc(f[i]); a[i]:=1; end; end; for i:=1 to n-3 do for j:=i+3 to n do if f[j]-a[j]-a[j-1]-a[j-2]-f[i-1]>0 then inc(ans); writeln(ans); close(input);close(output); end.
