N, Q = gets.chomp.split(" ").map{|s| s.to_i }
S = gets.chomp

q_arr = []
Q.times do |i|
  q_arr << gets.chomp.split(" ").map{|s| s.to_i }
end

iarr = []
(N-1).times do |i|
  iarr << i+1 if S[i..(i+1)] == "AC"
end

q_arr.each do |l, r|
  count = 0
  lind = nil
  rind = iarr.length - 1
  iarr.each_with_index do |ind, i|
    lind = i if lind.nil? && l-1 <= ind
    if r-1 < ind
      rind = i - 1
      break
    end
  end
 
  count = rind - lind
  puts count == 0 ? 0 : count + 1
end