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

k = []
0.upto(n-1) do |i|
  k << i if s[i] == 'A' && s[i+1] == 'C'
end

q.times do
  r, l = gets.chomp!.split(" ").map(&:to_i)
  puts k.select{ |_k| _k >= r - 1 && _k <= l - 2 }.size
end
