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

      Комментарии к записи Подсчет часов, минут, секунд в сутках отключены

Главная Форумы Программирование Программирование на Pascal Подсчет часов, минут, секунд в сутках

Помечено: 

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 2 нед., 4 дн. назад.

  • Автор
    Сообщения
  • #4232

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

    Решение:
    Для начала необходимо считать введенное число (переменная 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.

Для ответа в этой теме необходимо авторизоваться.