Nostalk 2012-12-25 05:05:00
点我顶贴
收藏
删除
var s:string;
i,j,m,n,k,l,sum:longint;
begin
read(s);
l:=length(s);
for i:=1 to l do
if s[i]='F' then
begin
for j:=i+1 to l do
if s[j]='B' then
begin
for k:=j+1 to l do
if s[k]='I' then inc(sum);
end;
end;
write(sum);
end.