Submission #2225901


Source Code Expand

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

Submission Info

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