Submission #2013096
Source Code Expand
var ans, a, i, l, h, n: integer; begin read(l); readln(h); readln(n); for i := 1 to n do begin ans := 0; readln(a); if a < l then ans := l - a else if h < a then ans := -1 else ans := 0; writeln(ans); end; end.
Submission Info
Submission Time | |
---|---|
Task | B - 運動管理 |
User | masakt |
Language | Pascal (FPC 2.6.2) |
Score | 100 |
Code Size | 290 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 | 100 / 100 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | sample-01.txt, sample-02.txt |
All | sample-01.txt, sample-02.txt, test-01.txt, test-02.txt, test-03.txt, test-04.txt, test-05.txt, test-06.txt, test-07.txt, test-08.txt, test-09.txt, test-10.txt, test-11.txt, test-12.txt, test-13.txt, test-14.txt, test-15.txt, test-16.txt, test-17.txt, test-18.txt, test-19.txt, test-20.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
sample-01.txt | AC | 0 ms | 128 KB |
sample-02.txt | AC | 0 ms | 128 KB |
test-01.txt | AC | 0 ms | 128 KB |
test-02.txt | AC | 0 ms | 128 KB |
test-03.txt | AC | 0 ms | 128 KB |
test-04.txt | AC | 0 ms | 128 KB |
test-05.txt | AC | 0 ms | 128 KB |
test-06.txt | AC | 0 ms | 128 KB |
test-07.txt | AC | 0 ms | 128 KB |
test-08.txt | AC | 0 ms | 128 KB |
test-09.txt | AC | 0 ms | 128 KB |
test-10.txt | AC | 0 ms | 128 KB |
test-11.txt | AC | 0 ms | 128 KB |
test-12.txt | AC | 0 ms | 128 KB |
test-13.txt | AC | 0 ms | 128 KB |
test-14.txt | AC | 0 ms | 128 KB |
test-15.txt | AC | 0 ms | 128 KB |
test-16.txt | AC | 0 ms | 128 KB |
test-17.txt | AC | 0 ms | 128 KB |
test-18.txt | AC | 0 ms | 128 KB |
test-19.txt | AC | 0 ms | 128 KB |
test-20.txt | AC | 0 ms | 128 KB |