часы показывают m часов, n минут и k секунд. Каковы будут показатели часов через p часов, q минут и r сек

[Паскалька^^]

Сейчас часы показывают m часов, n минут и k секунд. Каковы будут показатели часов через p часов, q минут и r секунд?
Составить программу. Паскаль.

[Alex Cones]

Недавно выкладывал код, для +10 секунд. Там только одну строчку поменять и будет Ваша готовая программа.
Вотъ: http://www.programmersforum.ru/showp...84&postcount=7 Поменять только строку, где прибавляю 10 секунд.

[ОДИНОЧЕСТВО В СЕТИ]

var m,n,k:integer;
       p,q,r:integer;
      nh,nm,ns:integer;
begin
readln(m,n,k);
readln(p,q,r);
nh:=0
nm:=0
ns:=0
if (k+r)-60>0 then 
begin
nm:=nm+1;
ns:=(k+r)-60;
end
else
ns:=(k+r);
if nm+(n+q)-60>0 then 
begin
nh:=nh+1;
nm:=nm+(n+q)-60;
end;
else nm:=nm+(n+q);
if (nh+p+m)-24>0
 then nh:=nh+p+m-24
else nh:=nh+p+m;
Writeln('новые показания ',nh,':',nm,':',ns);
readln;
end.

[LeBron]

Общепринято такие задачи писaть короче, используя перевод в секунды:

var a,b,c,d,e,t,f:longint;
begin
readln(a,b,c);
readln(d,e,f);
t:=3600*a+60*b+c+3600*d+60*e+f;
writeln((t div 3600) mod 24,' ',(t div 60) mod 60,' ',t mod 60);
end.