题目描述

某人总是花很多时间给父母打电话。有一次他记录了打电话的开始时间和结束时刻t1和t2，请你帮他算算此次通话一共用了多少秒。又有一次，他记录了打电话的开始时刻t1和通话的时间长度len，请你帮他计算他在什么时刻结束通话。
已知每次通话时间小于24个小时。

输入

输入文件phone.in的第一行为一个正整数T，表示了数据组数。
接下来T行，每行第一个数为k：
如果k = 0，接下来包含两个时间t1和t2，表示了打电话的开始时间和结束时刻，用一个空格隔开，时间格式为HH:MM:SS，其中0≤HH≤23,0≤MM,SS≤59。HH、MM和SS都是两位数字，因此0:1:2是不合法的时间（应写作00:01:02）。你应该对这个询问输出通话时间长度，答案一定为区间[0,86400)之内的非负整数。
如果k=1，接下来包含一个时间t1和一个非负整数len，表示了打电话的开始时刻与通话时间长度，用一个空格隔开，时间格式同为HH:MM:SS，同样时间小于24个小时，即len<86400。你应该对这个询问输出结束通话的时刻，同为HH:MM:SS格式。

输出

输出文件phone.out包含T个整数或者时间，对于每个询问输出对应的答案

思路

。。。
小学数学题，只要在出现负数时特殊判断就可以了

var
  a:array[1..10000] of longint;
  i,j,k,h,n,m,s,s1,x,y:longint;
  st:string;
begin
  readln(n);
  for i:=1 to n do
    begin
      readln(st);
      val(st[1],x);
      delete(st,1,2);
      if x=0 then
        begin
          for j:=1 to 6 do
            begin
              val(copy(st,1,2),a[j]);
              delete(st,1,3);
              if (j=1) or (j=4)
                then if a[j]=0 then a[j]:=24;
            end;
          s:=a[1]*3600+a[2]*60+a[3];
          s1:=a[4]*3600+a[5]*60+a[6];
          if (s1-s)<0 then s1:=s1+3600*24; 
          writeln(s1-s);
        end
      else
        begin
          for j:=1 to 3 do
            begin
              val(copy(st,1,2),a[j]);
              delete(st,1,3);
              if (j=1)
                then if a[j]=0 then a[j]:=24;
            end;
          val(st,y);
          s:=a[1]*3600+a[2]*60+a[3];
          s:=s+y;
          a[4]:=s div 3600;
          a[4]:=a[4] mod 24;
          s:=s mod 3600;
          a[5]:=s div 60;
          s:=s mod 60;
          a[6]:=s;
                    if (a[4]<10) and (a[4]<>0)
              then write(0);
          if a[4]=0 then write('00:')
            else write(a[4],':');
            if (a[5]<10) and (a[5]<>0)
              then write(0);
          if a[5]=0 then write('00:')
            else write(a[5],':');
            if (a[6]<10) and (a[6]<>0)
              then write(0);
          if a[6]=0 then write('00')
            else write(a[6]);
          writeln;
          end;
    end;
end.