Ограничения [Время: 1000ms, Память: 128MB, Сложность: 2%]

Задана продолжительность некоторого события в секундах целым числом. Считая, что в одном часе 60 минут, а в минуте 60 секунд, определить продолжительность события в часах, минутах и секундах.

Входные данные:

Во входном потоке задано единственное натуральное число T (T < 10000000)

Выходные данные:

Вывести три натуральных числа через пробел: часов, минут, секунд

Пример входного файла (input. txt) :

3666

Question

Информатика

Сашуха

21 июля, 20:38

Ограничения [Время: 1000ms, Память: 128MB, Сложность: 2%]

Задана продолжительность некоторого события в секундах целым числом. Считая, что в одном часе 60 минут, а в минуте 60 секунд, определить продолжительность события в часах, минутах и секундах.

Входные данные:

Во входном потоке задано единственное натуральное число T (T < 10000000)

Выходные данные:

Вывести три натуральных числа через пробел: часов, минут, секунд

Пример входного файла (input. txt) :

3666

+4

Ответы (1)

Знаете ответ?

Фёкла · Answer 1

Var

f: Text;

T: longint;

h, m, s, err: integer;

c: string;

begin

Assign (f, 'input. txt') ;

Reset (f) ;

Readln (f, c) ;

Val (c, T, err) ;

Close (f) ;

h : = T div 3600;

T : = T mod 3600;

m : = T div 60;

s : = T mod 60;

writeln (h, ' ', m, ' ', s)

end.

Тестовое решение:

1 1 6