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

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

Задать свой вопрос
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.
Danil Saskin
надеюсь разберёшься. Отдала разговаривающие имена переменным, чтоб было понятно.
Валерия Ченелюк
Громадное спасибо!
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт