Question

Идёт k-я секунда суток. Разработайте программу, которая по введённой k-й секунде суток определяет, сколько целых часов h и целых минут m прошло с начала суток. Например, если k = 13 257 = 3 • 3600 40 • 60 57, то h = 3 и m = 40. Выведите на экран фразу: It is ... hours ... minutes. Вместо многоточий программа должна выводить значения h и m, отделяя их от слов ровно одним пробелом. Пример входных данных Пример выходных данных 13 257 It is 3 hours 40 minutes.

Answer 1

var
k,m,h:integer;
    begin
         readln(k);
               writeln(k div 60, '  минут');
               writeln(k div 3600, '  часов');
end.