for "https://paiza.jp/poh/paizen"

## paizen.rb
height, width = gets.split(' ').map(&:to_i)

# bitとして扱う
lines = []
(1..height).each do |h|
  lines << gets.chomp.to_i(2)
end

# 対象を解析
targets = {}
tickets = []
gets.to_i.times do
  wh, ww = gets.split(' ').map(&:to_i)
  tickets << [ww, wh]
  targets[ww] = true if ww <= width
end

# 盤面をparse
memo = Hash.new{|h,k| h[k] = Hash.new(0)}
targets.keys.each do |tw|
  wm = memo[tw]
  val = ("1" * tw).to_i(2)
  (width - tw + 1).times do
    count = 0
    height.times do |vi|
      if lines[vi] & val == 0
        count += 1
        (1..count).each{|c| wm[c] += 1}
      else
        count = 0
      end
    end
    val = (val << 1)
  end
end

# 最終結果
tickets.each do |key|
  puts memo[key.first][key.last]
end