n, q = gets.to_s.split.map{|t|t.to_i}
s    = gets.to_s.chomp

cum = Array.new(s.size){ 0 }
s.chars.each_cons(2).each_with_index do |w,i|
  
  if w[0] == 'A' && w[1] == 'C'
    cum[i+1] = cum[i] + 1
  else
    cum[i+1] = cum[i]
  end
end

q.times do
  l, r = gets.to_s.split.map{|t|t.to_i-1}
  puts cum[r] - cum[l]
end