N,Q = gets.split.map(&:to_i)
str = gets.chomp
ans_ary = [0]
(N-1).times{|i|
  ans_ary[i+1] = if str[i..(i+1)] == 'AC'
    ans_ary[i] + 1
  else
    ans_ary[i]
  end
}
Q.times{
  l,r = gets.split.map(&:to_i)
  puts ans_ary[r-1] - ans_ary[l-1]
}