n,q=gets.split.map &:to_i
s=gets.chomp
d=(1..q).map{gets.split.map &:to_i}

acs=[]
for i in 0..n-2
    if s[i]=='A'&&s[i+1]=='C'
        acs<<i
    end
end
#p acs
d.each{|l,r|p acs.count{|e|l-2<e&&e<r-1}}