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