Ограничения [время: 1000ms, память: 128mb, сложность: - вопрос №280024410001282 от kristinamirnaya 28.05.2020 13:57

Question

Информатика: Ограничения [время: 1000ms, память: 128mb, сложность: 2%] задана продолжительность некоторого события в секундах целым числом. считая, что в одном часе 60 минут, а в минуте 60 секунд, определить продолжительность события в часах, минутах и секундах. входные данные: во входном потоке задано единственное натуральное число t (t 10000000) выходные данные: вывести три натуральных числа через пробел: часов, минут, секунд пример входного файла (input.txt): 3666

kristinamirnaya · Answer

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