Program TimePlus;
Var h, m, s, xh, xm, xs :integer;
Begin;
Read(h, m, s, xh, xm, xs);
s:=(s+xs)mod 60;
m:=(m+xm+(s+xs)div 60)mod 60;
h:=(h+xh+(m+xm+(s+xs)div 60)div 60)mod 24;
WriteLn('Time will be: ', h, 'h ', m, 'min ', s, 'sec ');
ReadLn;
End.
Черт, ребят, помогите. Программа должна делать вот что:Вводятся шесть чисел: 3 числа для текущего времени в формате (h m s) и три числа для изменения времени на (xh xm xs). После чего программа суммирует время и выдаёт получившееся. Я знаю, что есть вариант проще, но мне нужно решить конкретный этот. Что не так: Ввожу 00 00 00 00 00 3600 - результат 01 00 00 - верно Ввожу 00 00 00 00 00 3721 - результат 01 02 01 - верно Ввожу 00 59 00 00 02 00 - результат 00 01 00 - не верно