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