02.

st:ansistring;

03.

i,j,k,n:longint;

04.

s:int64;

05.begin

06.

s:=0;

07.

readln(st);

08.

n:=length(st);

09.

for i:=1 to n do

10.

for j:=i+1 to n do

11.

for k:=j+1 to n do

12.

if ((st[i]='F') and (st[j]='B') and (st[k]='I')) then s:=s+1;

13.

writeln(s);

14.end.

状态: Unaccepted

测评机： Xeond[6]

得分： 10分

提交日期： 2010-11-15 22:17:00

有效耗时： 547毫秒

测试结果1: 选手程序运行超过时限

测试结果2: 选手程序无输出

测试结果3: 选手程序无输出

测试结果4: 选手程序无输出

测试结果5: 通过本测试点|有效耗时547ms

测试结果6: 选手程序运行超过时限

测试结果7: 测试结果错误.错误结果为:1564511

正确结果应为:7971

测试结果8: 测试结果错误.错误结果为:1564511

正确结果应为:21957

测试结果9: 测试结果错误.错误结果为:1564511

正确结果应为:184

测试结果10: 测试结果错误.错误结果为:1564511

正确结果应为:1498