Submission #3095475

Source Code Expand

var a,b:Integer;
begin read(a);
b:=a div 3600;
if b<10 then write(0);
write(b);
write(':');
b:=(a div 60)mod 60;
if b<10 then write(0);
write(b);
write(':');
b:=a mod 60;
if b<10 then write(0);
writeln(b);
end.

Submission Info

Submission Time
Task B - 入浴時間
User kotatsugame
Language Pascal (FPC 2.6.2)
Score 100
Code Size 223 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