Задача

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


Решение

Для начала необходимо считать введенное число (переменная day). Затем полученное число умножить на количество часов в одних сутка (24*day). Полученную велечину умножить на количество минут в одном часу (60*hour), и умножить результат на количество секунд в одной минуте (60*min). После вычисления выводим полученные результаты.
Программа 01 Uses Crt;
02 Var day,hour,min,sec : extended;
03
04 Begin
05 ClrScr;
06 Write('сут = ');
07 Readln(day);
08 hour:=24*day;
09 min:=60*hour;
10 sec:=60*min;
11 Writeln('часов : ',hour:0:0);
12 Writeln('минут : ',min:0:0);
13 Writeln('секунд : ',sec:0:0);
14 Readln
15 End.
01 Uses Crt;
02 Var day,hour,min,sec : extended;
03
04 Begin
05 ClrScr;
06 Write('сут = ');
07 Readln(day);
08 hour:=24*day;
09 min:=60*hour;
10 sec:=60*min;
11 Writeln('часов : ',hour:0:0);
12 Writeln('минут : ',min:0:0);
13 Writeln('секунд : ',sec:0:0);
14 Readln
15 End.

Пояснения к примеру

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