给定一个从0秒开始计时的秒数,请将其转换为x:x:x的格式
programx2;vara,b,c,d:integer;beginreadln(a);b:=adiv3600;d:=(amod3600)mod60;c:=(amod36...
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.
请问高人哪里错了 展开
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.
请问高人哪里错了 展开
2个回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
