n,q = gets.chomp.split(" ").map(&:to_i)
s = gets.chomp.split("")

q.times do
  cnt = 0
  l,r = gets.chomp.split(" ").map(&:to_i)
  (r-l).times do |i|
    if s[i+l-1]=="A"
      cnt += 1 if s[i+l]=="C"
    end
  end
  p cnt
end
