Submission #2216520


Source Code Expand

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

Submission Info

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