agnus

3843. 【NOIP2014八校联考第1场第1试9.20】寻找羔羊(agnus) (Standard IO)

Time Limits: 1000 ms  Memory Limits: 262144 KB  Detailed Limits  

Goto ProblemSet

Description

给定一个由小写字母组成的字符串，寻找包含“agnus”（羔羊）的子串的个数。注意：当且仅当两个子串的起始位置和终点不同时，这两个子串属于不同的子串。

Input

只有一个字符串，表示题中所述的字符串。

Output

仅一个数字，表示满足题意的子串个数。

Sample Input

agnusbgnus

Sample Output

6【样例解释】    6个子串分别是：agnus、agnusb、agnusbg、agnusbgn、agnusbgnu、agnusbgnus。

var        a,b,c,ans,last:longint;        s:ansistring;        t:string;begin        //assign(input,'agnus.in');reset(input);        readln(s);        ans:=0;        for a:=5 to length(s) do        begin                t:=copy(s,a-4,5);                if t='agnus' then                begin                        last:=a-4;                        ans:=ans+last;                end                        else                ans:=ans+last;        end;        writeln(ans);        //close(input);end.