; s = h * 60 + m + interval * (n - 1) を計算し経過分数を求めて ; s / 60 % 24 で時間が s % 60 で分がわかる ; これらを 1 行ごとに出力する (defun main () (let* ((n (read)) (h (read)) (m (read)) (interval (read)) (s (+ (* 60 h) m (* interval (1- n))))) (princ (mod (floor s 60) 24)) (terpri) (princ (mod s 60)) (terpri))) (main)