Cod sursa(job #25352)
Utilizator | Pavel Mircea mips | Data | 4 martie 2007 12:11:49 |
---|---|---|---|
Problema | Ograzi | Scor | 30 |
Compilator | fpc | Status | done |
Runda | preONI 2007, Runda 3, Clasele 11-12 | Marime | 0.41 kb |
var m,tot,i,j,n,lx,ly,a,b:longint;
v:array[1..30000] of record x,y:longint;end;
begin
assign(input,'ograzi.in');
reset(input);
readln(n,m,lx,ly);
for i:=1 to n do
readln(v[i].x,v[i].y);
for j:=1 to m do
begin
readln(a,b);
for i:=1 to n do
if (a>=v[i].x)and(a<=v[i].x+lx)and(b>=v[i].y)and(b<=v[i].y+ly) then
inc(tot);
end;
assign(output,'ograzi.out');
rewrite(output);
writeln(tot);
close(output);
end.