Дано количество секунд сначала суток. Вычислить текущее время в виде количества часов,...

Question

Дано количество секунд сначала суток. Вычислить текущее время в виде количества часов, минут и секунд.

Answer 1

Var h,m,s,a: integer;
begin
readln(a);
h:= a div  3600;
m:= (a - h*3600) div 60;
s:= a - m*60 - h*3600;
writeln(h); writeln(m);write(s);
end.

Comments

у вас программа неправильно работает, наример, вводим 4639 ответ должен быть 1:17:19, а программа выдает 1:17:0

---

У меня все правильно выдает

Answer 2

Uses crt;
var a,h,m,s:integer;
begin
readln(a);
h:=a div 3600;
a:=a mod 3600;
m:=a div 60;
a:=a mod 60;
s:=a;
write(h,':',m,':',s);
end.