Pagini recente » Cod sursa (job #332428) | Cod sursa (job #25174)
Cod sursa(job #25174)
program p1;
var a:array[1..50000,1..4] of longint;
n,m,w,h,i,j,x,y:longint;
f:text;
begin
assign(f,'ograzi.in');
reset(f);
read(f,n,m,w,h);
readln(f);
for i:=1 to n do
begin
readln(f,a[i,1],a[i,3]);
a[i,2]:=a[i,1]+w;
a[i,4]:=a[i,3]+h;
end;
h:=0;
for i:=1 to m do
begin
readln(f,x,y);
j:=0;
repeat
j:=j+1;
until ((a[j,1]<=x)and(a[j,2]>=x)and(a[j,3]<=y)and(a[j,4]>=y))or(j=n+1);
if j<=n then h:=h+1;
end;
close(f);
assign(f,'ograzi.out');
rewrite(f);
write(f,h);
close(f);
end.