СРОЧНО!! ПАСКАЛЬ!! Вводится какое-то кол-во секунд, из этих секунд программа должна вывести дни(сутки), часы, минуты, секунды... Прошу помочь
Answers & Comments
kcolrehSmaI
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.
1 votes Thanks 1
kcolrehSmaI
надеюсь разберёшься. Дала говорящие имена переменным, чтобы было понятно.
Answers & Comments