Submission #1181261
Source Code Expand
var n,m,i,j,now:longint; a,b,c,d:array[0..107] of int64; begin readln(n,m); for i:=1 to n do readln(a[i],b[i]); for i:=1 to m do readln(c[i],d[i]); for i:=1 to n do begin now:=1; for j:=2 to m do if (abs(c[j]-a[i])+abs(d[j]-b[i])<abs(c[now]-a[i])+abs(d[now]-b[i])) then now:=j; writeln(now); end; end.
Submission Info
Submission Time | |
---|---|
Task | B - Checkpoints |
User | Tommyr7 |
Language | Pascal (FPC 2.6.2) |
Score | 200 |
Code Size | 351 Byte |
Status | AC |
Exec Time | 0 ms |
Memory | 128 KB |
Compile Error
/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 200 / 200 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | sample_01.txt, sample_02.txt, sample_03.txt |
All | sample_01.txt, sample_02.txt, sample_03.txt, subtask_1_1.txt, subtask_1_2.txt, subtask_1_3.txt, subtask_1_4.txt, subtask_1_5.txt, subtask_1_6.txt, subtask_1_7.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
sample_01.txt | AC | 0 ms | 128 KB |
sample_02.txt | AC | 0 ms | 128 KB |
sample_03.txt | AC | 0 ms | 128 KB |
subtask_1_1.txt | AC | 0 ms | 128 KB |
subtask_1_2.txt | AC | 0 ms | 128 KB |
subtask_1_3.txt | AC | 0 ms | 128 KB |
subtask_1_4.txt | AC | 0 ms | 128 KB |
subtask_1_5.txt | AC | 0 ms | 128 KB |
subtask_1_6.txt | AC | 0 ms | 128 KB |
subtask_1_7.txt | AC | 0 ms | 128 KB |