2014年初中竞赛试题(南海) 字符串

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/qq872425710/article/details/65447015

题意:

这里写图片描述

思路:

找出每一个bear的位置,然后用他前面一个bear的位置和后面的字符数相乘都加起来就好了

const
        maxn=10000;
var
        s:ansistring;
        i,j,n,m,ans:longint;
        f:array [0..maxn] of longint;
begin
        readln(s);
        n:=length(s);
        for i:=1 to n do
         if (s[i]='b') and (s[i+1]='e') and (s[i+2]='a') and (s[i+3]='r') then
         begin
                inc(j);
                f[j]:=i;
         end;
        for i:=1 to j do
         ans:=ans+(f[i]-f[i-1])*(n-f[i]-2);
        writeln(ans);
end.
阅读更多
想对作者说点什么?

博主推荐

换一批

没有更多推荐了,返回首页