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

Question

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

Answer 1

Var  sec, min, hour, day: integer;begin  write ('Введите секунды: ');  readln (sec);    min := sec div 60;  sec := sec mod 60;    hour := min div 60;  min := min mod 60;    day := hour div 24;  hour := hour mod 24;    writeln (day, ' суток ', hour, ' часов ', min, ' минут ', sec, ' секунд '); end.

Comments

надеюсь разберёшься. Дала говорящие имена переменным, чтобы было понятно.

---

Огромное спасибо!