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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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