PROGRAM Ride_to_School;
VAR
  num:longint;
  ans:extended;
PROCEDURE init;
  Begin
    read(num);
  End;
PROCEDURE solve;
  Var
    i,v,t:longint;
    tmp:extended;
  Begin
    ans:=maxlongint;
    for i:=1 to num do
      begin
        read(v,t);
        if i>=0 then
          begin
            tmp:=4500.0*3.6/(v)+t;
            if tmp-trunc(tmp)>0 then tmp:=tmp+1;
            if tmp<ans then ans:=tmp;
          end;
      end;
    writeln(trunc(tmp));
  End;
PROCEDURE outit;
  Begin
  End;
BEGIN
  num:=1;
  while num<>0 do
    begin
      init;
      if num<>0 then
        begin
          solve;
          outit;
        end;
    end;
END.

• Re:过路神牛帮忙看看为什么wa~~~~ (11) crd 2010-10-21 13:50:55
• 还是哥帮你改吧~~ (60) crd720 2010-10-21 13:54:46
• Re:过路神牛帮忙看看为什么wa~~~~ (43) crd721 2010-10-21 14:20:19