moboqe Var sec:longint; d,h,m,s:integer;
begin
writeln('sec = ');
readln(sec);
d:=sec div (60*60*24);
h:=sec mod (60*60*24) div (60*60);
m:=sec mod (60*60) div 60;
s:=sec mod 60;
writeln('d = ',d,' h = ',h,' m = ',m,' s = ',s);
end.

Пример:
sec = 183925
d = 2 h = 3 m = 5 s = 25

petyaGavrikov

Verified answer

Ответ в файле
...............