(*,n) = gets.split.map(&:to_i)
s = gets.chomp
si = Array.new(s.size, 0)
b = n.times.map{gets.split.map(&:to_i)}

s.each_char.with_index do |c, i|
  si[i] = s[i-1..i] == 'AC' ? si[i-1]+1 : si[i-1]
end
puts b.map { |e| si[e[1]-1] - si[e[0]-1]  }
