Submission #3677866


Source Code Expand

var t,a,b,c,d:Longint;
begin
read(t,a,b,c,d);
if t>=a+c then writeln(b+d)
else if t>=c then writeln(d)
else if t>=a then writeln(b)
else writeln(0);
end.

Submission Info

Submission Time
Task A - Two Problems
User kotatsugame
Language Pascal (FPC 2.6.2)
Score 100
Code Size 160 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
AC × 3
AC × 13
Set Name Test Cases
Sample s1.txt, s2.txt, s3.txt
All 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, 09.txt, 10.txt, s1.txt, s2.txt, s3.txt
Case Name Status Exec Time Memory
01.txt AC 0 ms 128 KB
02.txt AC 0 ms 128 KB
03.txt AC 0 ms 128 KB
04.txt AC 0 ms 128 KB
05.txt AC 0 ms 128 KB
06.txt AC 0 ms 128 KB
07.txt AC 0 ms 128 KB
08.txt AC 0 ms 128 KB
09.txt AC 0 ms 128 KB
10.txt AC 0 ms 128 KB
s1.txt AC 0 ms 128 KB
s2.txt AC 0 ms 128 KB
s3.txt AC 0 ms 128 KB