Submission #3443942

Source Code Expand

var
 a:longint;
begin
 read(a);
 if a=1 then writeln(1)
 else 
 writeln(a*7 div 2);
end.

Submission Info

Submission Time
Task B - ダイスゲーム
User luogu_bot5
Language Pascal (FPC 2.6.2)
Score 100
Code Size 88 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 × 19
Set Name Test Cases
Sample sample-01.txt, sample-02.txt, sample-03.txt
All sample-01.txt, sample-02.txt, sample-03.txt, 01-01.txt, 01-02.txt, 01-03.txt, 01-04.txt, 01-05.txt, 01-06.txt, 01-07.txt, 01-08.txt, 01-09.txt, 01-10.txt, 01-11.txt, 01-12.txt, 01-13.txt, sample-01.txt, sample-02.txt, sample-03.txt
Case Name Status Exec Time Memory
01-01.txt AC 0 ms 128 KB
01-02.txt AC 0 ms 128 KB
01-03.txt AC 0 ms 128 KB
01-04.txt AC 0 ms 128 KB
01-05.txt AC 0 ms 128 KB
01-06.txt AC 0 ms 128 KB
01-07.txt AC 0 ms 128 KB
01-08.txt AC 0 ms 128 KB
01-09.txt AC 0 ms 128 KB
01-10.txt AC 0 ms 128 KB
01-11.txt AC 0 ms 128 KB
01-12.txt AC 0 ms 128 KB
01-13.txt AC 0 ms 128 KB
sample-01.txt AC 0 ms 128 KB
sample-02.txt AC 0 ms 128 KB
sample-03.txt AC 0 ms 128 KB