var n,i,j,nf,nb,ni:longint;
s:ansistring;
begin
readln(s);
for i:=1 to length(s) do
case s[i] of
F:inc(nf);
B:inc(nb,nf);
I:inc(ni,nb);
end;
writeln(ni);
end.
需要用matrix……
快速帮助 | 运行状态 | 反馈举报 | 关于我们 | 免责声明 | 浙ICP备11060257号 Processed in 0.0050 Second(s) Copyright (C) RQNOJ 2007-2019. All Rights Reserved.