Submission #2232223


Source Code Expand

var a:longint;
begin
readln(a);
if a div 3600>=10 then write(a div  3600,':') else write('0',a div 3600,':');
if a div 60 mod 60>=10 then write(a div  60 mod 60,':') else write('0',a div 60 mod 60,':');
if a mod 60 >=10 then writeln(a mod 60) else writeln('0',a mod  60);


end.

Submission Info

Submission Time
Task B - 入浴時間
User luogu_bot1
Language Pascal (FPC 2.6.2)
Score 100
Code Size 278 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 100 / 100
Status
AC × 14
Set Name Test Cases
All sample_01.txt, sample_02.txt, test_1.txt, test_17977.txt, test_25298.txt, test_36922.txt, test_44309.txt, test_52415.txt, test_60165.txt, test_65487.txt, test_70993.txt, test_80915.txt, test_84810.txt, test_86399.txt
Case Name Status Exec Time Memory
sample_01.txt AC 0 ms 128 KB
sample_02.txt AC 0 ms 128 KB
test_1.txt AC 0 ms 128 KB
test_17977.txt AC 0 ms 128 KB
test_25298.txt AC 0 ms 128 KB
test_36922.txt AC 0 ms 128 KB
test_44309.txt AC 0 ms 128 KB
test_52415.txt AC 0 ms 128 KB
test_60165.txt AC 0 ms 128 KB
test_65487.txt AC 0 ms 128 KB
test_70993.txt AC 0 ms 128 KB
test_80915.txt AC 0 ms 128 KB
test_84810.txt AC 0 ms 128 KB
test_86399.txt AC 0 ms 128 KB