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

Question

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

Comments

Нужно написать программу

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

Answer 2

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

---

Скачать вложение Текст (TXT)

Comments

Нужно, чтобы выводил целые числа

---

исправил

---

Смотрите, допустим у меня есть число 85600(так к примеру) мне нужно найти сколько в этом числе дней, а из остатка найти сколько осталось часов в остатке, секунд и минут

---

Как успехи, поможете?