n,q = gets.split.map(&:to_i)
s = gets.chomp
c = Array.new(n,0)
num=0
n.times do |i|
    next if i == 0
    num+=1 if s[i-1]=='A'&&s[i]=='C'
    c[i]=num
end
q.times do |i|
    l,r = gets.split.map(&:to_i)
    puts c[r-1]-c[l-1]
end