Помогите пожалуйста Идёт k-я секунда суток. Разработать программу, которая по введённой...

Question

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

Comments

эй, что значит по 5-й секунде суток, может ты опечатался случайно, я немного не понял

---

Идёт k-я секунда суток. Разработать программу, которая по введённой k-й секунде суток определяет, сколько целых часов h и целых минут m прошло

---

аа

Answer 1

Program ex;
var k,h,m: integer;
begin
  write('Введите k: ');
  readln(k);
  h:=k div 3600;
  m:=(k - h)div 60;
  write('It is ',h,' hours ',m,' minutes');
end.