Написать программу подсчета количества часов, минут и секунд в данном числе суток.
Для начала необходимо считать введенное число (переменная 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.
Похожие записи/страницы:
- Написать программу подсчета количества часов, минут и секунд в данном числе суток - Pascal(Паскаль)
- С начала суток прошло N секунд (N — целое). Найти количество полных минут, прошедших с начала последнего часа -…
- C клавиатуры вводится К-количество часов .Определить сколько полных часов ,минут,секунд - Pascal(Паскаль)
- Идет k-я секунда суток. Определить сколько полных часов - X и полных минут - Y прошло к этому моменту - Pascal(Паскаль)
- Текущие показатели часов : m часов(0<=m<=23), n минут (0<=n<=59). Какое время будут показывать часы…
- С начала суток прошло N секунд (N — целое). Найти количество полных часов, прошедших с начала суток - Pascal(Паскаль)
- С начала суток прошло N секунд (N — целое). Найти количество полных минут, прошедших с начала суток - Pascal(Паскаль)
- В бригаде, работающей на уборке сена, имеется N сенокосилок. Первая сенокосилка работала m часов, а каждая…