Question

Электронные часы показывают время в формате h:mm:ss, то есть сначала записывается количество часов, потом обязательно двузначное количество минут, затем обязательно двузначное количество секунд. Количество минут и секунд при необходимости дополняются до двузначного числа нулями. С начала суток прошло n секунд. Выведите, что покажут часы. Входные данные Вводится целое число n. Выходные данные Выведите ответ на задачу, соблюдая требуемый формат. Примеры Входные данные 3602 Выходные данные 1:00:02 Входные данные 129700 Выходные данные 12:01:40

Answer 1

Var n,h,m,s:integer;
begin
readln(n);
n:=n mod (24*3600);
h:=n div 3600;
m:=(n-h*3600) div 60;
s:=n mod 60;
write(h,':');
case m of
 0: write('00:');
 1..9:write('0',m,':');
 else write(m,':');
end;
case s of
 0: writeln('00');
 1..9:writeln('0',s);
 else writeln(s);
end;
end.

Пример:
129700
12:01:40