N,Q = gets.split.map(&:to_i)
S = gets.chomp

a = []
S.each_char.with_index do |s,i|
  if S[i] == 'C' && S[i-1] == 'A'
    a[i] = a[i-1] + 1
  else
    a[i] = a[i-1] || 0
  end
end

Q.times do
  l,r = gets.split.map {|s| s.to_i - 1 }
  puts a[r] - a[l]
end
