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|
  lind = iarr.index{|i| l <= i}
  if lind.nil?
    p 0
    next
  end
  rind = (iarr.index{|i| r <= i} || iarr.length)

  p rind-lind
end