Question

СРОЧНО!! ПАСКАЛЬ!! Вводится какое-то кол-во секунд, из этих секунд программа должна вывести дни(сутки), часы, минуты, секунды... Прошу помочь

Answer 1

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