Question

Идёт k-я секунда суток. разработайте программу, которая по введённой k-й секунде суток определяет, сколько целых часов h и целых минут с начала суток. например, если 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.