n, q = gets.split.map(&:to_i)
s = gets.chomp
c = Array.new(s.size, 0)
1.upto(s.size - 1) do |i|
  if s[i] == 'C' && s[i - 1] =='A'
    c[i] = c[i - 1] + 1
  else
    c[i] = c[i - 1]
  end
end

q.times do
  l, r = gets.split.map(&:to_i)
  ans = c[r - 1] - c[[l - 2, 0].max]
  ans -= 1 if l >= 2 && c[l - 2] < c[l - 1]
  puts ans
end

