N,Q=gets.split.map(&:to_i)
S=gets.chomp+"?X"

ac=Array.new(N+1){0}
1.upto(N) do |i|
  ac[i]+=ac[i-1]
  ac[i]+=1 if S[i-2]==?A && S[i-1]==?C
end

Q.times do
  l,r=gets.split.map(&:to_i)
  p ac[r]-ac[l]
end