type puncte=record
            x,y:-30000..30000;
            end;
     coef  =record
            a,b,c:-30000..30000;
            end;

var p:array[1..1000] of puncte;
    d:array[1..1000] of coef;
    v,v2:array[1..1000] of 1..1000;
    f,g:text;
    n,m,j,i,pula,bb,aa:1..1000;
begin
assign(f,'regiuni.in');  assign(g,'regiuni.out');
reset(f); rewrite(g);

readln(f,n,m);
for i:=1 to n do
 readln(f,d[i].a,d[i].b,d[i].c);

for i:=1 to m do
 begin
 readln(f,p[i].x,p[i].y);
 v[i]:=1;
 end;

for i:=1 to n do
 begin
 for j:=1 to m do
  begin
  if d[i].a*p[j].x+d[i].b*p[j].y+d[i].c<0 then v2[j]:=1 else v2[j]:=2;
  end;
 aa:=v[1]; bb:=v2[1]; pula:=1;
 for j:=1 to m do
  if (aa=v[j]) and(bb=v2[j]) then v[j]:=pula
   else
    begin
    inc(pula);
    aa:=v[j];
    bb:=v2[j];
    v[j]:=pula;

    end;


 end;

 write(g,v[m]);
 close(f); close(g);

 end.