var
  c1,c2,c3:char;
  k,n,a,b,c,la,lb,lc,sa,sb,sc,s:extended;
  t:string;
begin
  s:=0;
  la:=0;
  lb:=0;
  lc:=0;
  while not seekeof do
    begin
      read(c1,c2,c3);
      t:=c1+c2+c3;
      a:=(ord(c1)-48)*10+ord(c2)-48;
      read(c1,c2,c3);
      t:=t+c1+c2+c3;
      b:=(ord(c1)-48)*10+ord(c2)-48;
      read(c1,c2);
      t:=t+c1+c2;
      c:=(ord(c1)-48)*10+ord(c2)-48;
      sa:=a;
      sb:=b;
      sc:=c;
      if la+lb+lc<>0 then
        begin
          n:=0;
          if c<lc then
            begin
              c:=c+60;
              b:=b-1;
              n:=n+c-lc;
            end
                  else n:=n+c-lc;
          if b<lb then
            begin
              b:=b+60;
              c:=c-1;
              n:=n+(b-lb)*60;
            end
                  else n:=n+(b-lb)*60;
          n:=n+(a-la)*3600;
          s:=s+n/3600*k;
        end;
      la:=sa;
      lb:=sb;
      lc:=sc;
      if not seekeoln then
        begin
          readln(k);
        end
                      else
        begin
          readln;
          writeln(t,' ',s:1:2,' km');
        end;
    end;
end.

• ft...pascal (1285) frkstyc 2005-07-23 22:44:40
  • 没办法呀…… (0) JiangLY 2005-07-23 22:47:27
    • 还是不知道为什么错…… (0) JiangLY 2005-07-23 22:51:19
• 好象t有问题 (0) zdker 2005-07-23 23:05:06
  • 不可能 (0) JiangLY 2005-07-23 23:07:20