dxtdxt 2010-11-15 06:19:00
点我顶贴
收藏
删除
01.var
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