const
  lim=1005;
var
  d:array[1..lim,1..3] of longint;
  pc:array[1..lim,1..2] of longint;
  multim,semn,i,j,n,m:longint;
  sol:longint;
  g,a:array[0..lim] of longint;
  next:array[0..lim,1..2] of longint;

begin
  assign(input,'regiuni.in');
  reset(input);
  readln(n,m);
  for i :=1 to n do
    readln(d[i,1],d[i,2],d[i,3]);
  for i:=1 to m do
    readln(pc[i,1],pc[i,2]);
  close(input);
  sol:=0;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      if d[i,1]*pc[j,1]+d[i,2]*pc[j,2]+d[i,3]>0
        then semn:=1
        else semn:=-1;
      multim:=g[j];
      if (a[multim]>1)and (semn=next[multim,1]) then g[j]:=next[multim,2];
      if a[multim]+semn=0 then
      begin
        inc(sol);
        next[multim,1]:=semn;
        next[multim,2]:=sol;
        g[j]:=sol;
        a[multim]:=5;
      end;
      if a[multim]=0 then a[multim]:=semn;
    end;
    fillchar(a,sizeof(a),0);
    fillchar(next,sizeof(next),0);
  end;
  assign(output,'regiuni.out');
  rewrite(output);
  writeln(sol+1);
  close(output);
end.