L, N = gets.split.map(&:to_i)
S = gets.chomp
R = Array.new(N) { gets.split.map(&:to_i) }

ANS = [0]
L.times {|i|
  isAC = S[i] == 'A' && S[i + 1] == 'C'
  ANS[i + 1] = ANS[i] + (isAC ? 1 : 0)
}

R.each {|f, t|
  p ANS[t - 1] - ANS[f - 1]
}