#4 csh123456@2013-01-13 21:27:00
29161
回复
删除
DP??数据过弱了
program project1;
var s:ansistring;
l,i,j,k,g:longint;
begin
readln(s);
l:=length(s);
g:=0;
for i:=1 to l-2 do
if s[i]='F'then
for j:=i+1 to l-1 do
if s[j]='B'then
for k:=j+1 to l do
if s[k]='I'then inc(g);
writeln(g);
readln;
end.