Подсчет часов, минут, секунд в сутках

Задача

Написать программу подсчета количества часов, минут и секунд в данном числе суток.

Решение

Для начала необходимо считать введенное число (переменная day). Затем полученное число умножить на количество часов в одних сутка (24*day). Полученную велечину умножить на количество минут в одном часу (60*hour), и умножить результат на количество секунд в одной минуте (60*min). После вычисления выводим полученные результаты.

Пример

Uses Crt;
Var day,hour,min,sec : extended;

Begin
  ClrScr;
  Write('сут = ');
  Readln(day);
  hour:=24*day;
  min:=60*hour;
  sec:=60*min;
  Writeln('часов  : ',hour:0:0);
  Writeln('минут  : ',min:0:0);
  Writeln('секунд : ',sec:0:0);
  Readln
End.

Описание примера

Данная программа довольно часто оказывается полезной для подсчета времени.