Python 3.6
Электронные часы (*)
ограничение по времени на тест 2 секунды
ограничение по памяти на тест 64 мегабайта
вводстандартный ввод
выводстандартный вывод
Электронные часы показывают время в формате h:mm:ss, то есть сначала записывается количество часов, потом обязательно двузначное количество минут, затем обязательно двузначное количество секунд. Количество минут и секунд при необходимости дополняются до двузначного числа нулями.
С начала суток прошло n секунд. Выведите, что покажут часы.
Учтите, что число n может быть больше, чем количество секунд в сутках.
Входные данные
Вводится целое число n. ( 1 ≤ n ≤ 109 )
Выходные данные
Выведите ответ на задачу, соблюдая требуемый формат.
Примеры
входные данные
3602
выходные данные
1:00:02
входные данные
129700
выходные данные
12:01:40
Примечание
При решении этой задачи нельзя использовать условную инструкцию if и циклы.
Электронные часы (*)
ограничение по времени на тест 2 секунды
ограничение по памяти на тест 64 мегабайта
вводстандартный ввод
выводстандартный вывод
Электронные часы показывают время в формате h:mm:ss, то есть сначала записывается количество часов, потом обязательно двузначное количество минут, затем обязательно двузначное количество секунд. Количество минут и секунд при необходимости дополняются до двузначного числа нулями.
С начала суток прошло n секунд. Выведите, что покажут часы.
Учтите, что число n может быть больше, чем количество секунд в сутках.
Входные данные
Вводится целое число n. ( 1 ≤ n ≤ 109 )
Выходные данные
Выведите ответ на задачу, соблюдая требуемый формат.
Примеры
входные данные
3602
выходные данные
1:00:02
входные данные
129700
выходные данные
12:01:40
Примечание
При решении этой задачи нельзя использовать условную инструкцию if и циклы.
More Questions From This User See All
Answers & Comments
просто
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.
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.