n, q = gets.split.map(&:to_i)
s = gets.chomp
lr = Array.new(q){gets.split.map(&:to_i)}
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
  a[i] = s[0..i].scan(/AC/).size
end
lr.each do |l, r|
  puts a[r - 1] - a[l - 1]
end