#10081: 哪里有错?


996syf (七宝三中沈昱飞)


var
  n,i:shortint;
  sum,ans:shortint;
begin
  while not eof do begin
    sum:=0;
    ans:=0;
    for i:=1 to  do begin
      readln(n);
      sum:=sum+n;
      ans:=ans+1;
      readln(n);
    end;
    if (sum div ans)<=59 then writeln('no');
    if (sum div ans)>59 then writeln('yes');
  end;
end.

#10089: Re:哪里有错?


kkmomo (kkmomo)


var
  n,i:shortint;
  sum,ans:shortint;
begin
  while not eof do begin
    sum:=0;
    ans:=0;
    for i:=1 to  do begin
      readln(n);
      sum:=sum+n;
      ans:=ans+1;
      readln(n);
    end;
    if (sum div ans)<=59 then writeln('no');
    if (sum div ans)>59 then writeln('yes');
  end;
end.


若你被當了,請輸出「yes」,否則輸出「no」。