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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
