profile
[/banner_gorizont_adaptive]
Размещено 5 лет назад по предмету Информатика от Makaroon3278

Python 3.6
Электронные часы (*)
ограничение по времени на тест 2 секунды
ограничение по памяти на тест 64 мегабайта
вводстандартный ввод
выводстандартный вывод
Электронные часы показывают время в формате h:mm:ss, то есть сначала записывается количество часов, потом обязательно двузначное количество минут, затем обязательно двузначное количество секунд. Количество минут и секунд при необходимости дополняются до двузначного числа нулями.

С начала суток прошло n секунд. Выведите, что покажут часы.

Учтите, что число n может быть больше, чем количество секунд в сутках.

Входные данные
Вводится целое число n. ( 1 ≤ n ≤ 109 )

Выходные данные
Выведите ответ на задачу, соблюдая требуемый формат.

Примеры
входные данные
3602
выходные данные
1:00:02
входные данные
129700
выходные данные
12:01:40
Примечание
При решении этой задачи нельзя использовать условную инструкцию if и циклы.

  1. Ответ на вопрос
    Ответ на вопрос дан alaxbabax1234g

    просто

    var

     Form1: TForm1;

      h, g, s: integer;

    implementation

    {$R *.fmx}

    procedure TForm1.Button1Click(Sender: TObject);

    begin

      h:=Round(Strtoint(Edit1.Text)/60);

      g:=Round(h/60);

      h:=h-g*60;

      s:=h*60;

     Showmessage(IntTostr(g)+'.'+IntTostr(h)+'.'+IntTostr(s));

    end;

    end.

    только тут с небольшой ошибкой показывает. +-5 сек

    end.

    1. Ответ на вопрос
      Ответ на вопрос дан alaxbabax1234g
      если даш больше времени, напишу без ошибки
    2. Ответ на вопрос
      Ответ на вопрос дан alaxbabax1234g
      Edit1.Text это n секунд
    3. Ответ на вопрос
      Ответ на вопрос дан alaxbabax1234g
      var
      Form1: TForm1;
      h, g, s, h1, h2: integer;

      implementation

      {$R *.fmx}

      procedure TForm1.Button1Click(Sender: TObject);
      begin
      s:=Strtoint(Edit1.Text) mod 60;
      h:=Strtoint(Edit1.Text) - s;
      h:=Trunc(h/60);
      h1:=h;
      h:=h mod 60;
      h2:=h;
      g:=Trunc((h1-h2)/60);
      Showmessage(IntTostr(g)+'.'+IntTostr(h)+'.'+IntTostr(s));
      end;

      end.
    4. Ответ на вопрос
      Ответ на вопрос дан alaxbabax1234g
      вот доскональный код
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.