信奥编程启蒙 3068：【例13.3】时间差

3067：【例13.2】 电子表

【题目描述】

电子表上的时间显示方法形如xx:xx:xx，现在给出一个时间，单位是秒，要求按照电子表格式输出，输出保证不会超过 2424 小时。

【输入】

输入一个时间。

【输出】

把时间转化成电子表格式输出。

【输入样例】

3701

【输出样例】

01:01:41

Var 
    sInput,h,m,s:   LongInt;
Begin
    readln(sInput);
    s := sInput Mod 60;
    sInput := sInput Div 60;

    m := sInput Mod 60;
    sInput := sInput Div 60;

    h := sInput Mod 60;
    //由于pascal 没有左边补0的printf(“%2d”,h),所以用下面的方法，由于 h, m，s 都是2位数 h div 10 输出0，后面输出余数
    writeln(h Div 10,h Mod 10,':',m Div 10,m Mod 10,':',s Div 10,s Mod 10);
    //其它直接输出的也可用if
    //用一个if语句就能完成:
    //if a<10 then writeln(0,a) else writeln(a);
    
    //另外说明刚开始没有注意，s也需要这样处理，02:03:06在一本通中没有提示原因，但是在hydro.ac AC 后会提示错误原因：
    //Wrong Answer 0读取到 09:48:4，应为 09:48:04。

End.