Submission #3004926

Source Code Expand

var
n,i,j,c,d,e,b:longint;
begin
readln(n,c,d);
for i:=1 to n do
begin
readln(e);
if (e<c) or (e>=d) then inc(j);
end;
writeln(j);
end.

Submission Info

Submission Time
Task A - A Barricade
User luogu_bot4
Language Pascal (FPC 2.6.2)
Score 66
Code Size 145 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 All
Score / Max Score 66 / 66
Status
AC × 9
Set Name Test Cases
All 00_sample.txt, 01_sample.txt, 02_sampe.txt, 03_sample.txt, corner_case_03.txt, corner_case_04.txt, random_case_00.txt, random_case_01.txt, random_case_02.txt
Case Name Status Exec Time Memory
00_sample.txt AC 0 ms 128 KB
01_sample.txt AC 0 ms 128 KB
02_sampe.txt AC 0 ms 128 KB
03_sample.txt AC 0 ms 128 KB
corner_case_03.txt AC 0 ms 128 KB
corner_case_04.txt AC 0 ms 128 KB
random_case_00.txt AC 0 ms 128 KB
random_case_01.txt AC 0 ms 128 KB
random_case_02.txt AC 0 ms 128 KB