Дано число n. С начала суток прошло n минут. Определите, сколько часов и минут будут показывать электронные часы в этот момент. Программа должна вывести два числа: количество часов (от 0 до 23) и количество минут (от 0 до 59). Учтите, что число n может быть больше, чем количество минут в сутках. Пример Ввод Вывод 150 2 30

var

q, hour, minut, n:integer;

Сначала определим количество минут в сутках:

60 * 24 = 1440 (мин).

Теперь, когда пользователь будет вводить число n, программа будет делить n на 1440 и возвращать остаток:

readln (n);

q: = n mod 1440;

Находим целую часть от деления остатка на 60, где 60 - это количество минут в часе:

hour: = q div 60;

Находим остаток от деления остатка q на количество минут:

minut: = q mod 60;

if hour < 10 then

write ('0', hour)

else write (hour);

if minut < 10 then

write (':0', minut)

else write (':', minut);

end.