Var
h1, h2, m1, m2, s1, s2: integer;
begin
read(h1, m1, s1);
read(h2, m2, s2);
writeln((h2 - h1) * 3600 + (m2 - m1) * 60 + s2 - s1);
end.
не знаю как вторую без циклов решить
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.