给定一个从0秒开始计时的秒数,请将其转换为x:x:x的格式

program x2;
var
a,b,c,d:integer;
begin
readln(a);
b:=a div 3600;
d:=(a mod 3600) mod 60;
c:=(a mod 3600) div 60;
if b<10 then write('0',b,':') else write(b,':');
if c<10 then write('0',c,':') else write(c,':');
if d<10 then write('0',d) else write(d);
end.
请问高人哪里错了

你还得考虑a div 3600大于24的情况啊

var t,h,m,s:longint; begin readln(t); s:=t mod 60; t:=t div 60; m:=t mod 60; h:=t div 60; if h&lt;=10 then write(&apos;0&apos;,h) else write(h); write(&apos;:&apos;); if m&lt;=10 then write(&apos;0&apos;,m) else write(m); write(&apos;:&apos;); if s&lt;=10 then writeln(&apos;0&apos;,s) else writeln(s); end.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息