Задача
Написать программу подсчета количества часов, минут и секунд в данном числе суток.
Решение
Для начала необходимо считать введенное число (переменная 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.
Описание примера
Данная программа довольно часто оказывается полезной для подсчета времени.