發表新討論
#10081: 哪里有错？


996syf (七宝三中沈昱飞)

學校 : 上海市娄山中学
編號 : 50375
來源 : [218.242.227.167]
最後登入時間 ：
2016-01-23 11:02:41
a148. You Cannot Pass?! | From: [114.84.226.61] | 發表日期 : 2015-07-25 12:53
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)

學校 : 不指定學校
編號 : 29247
來源 : [223.137.94.20]
最後登入時間 ：
2024-06-28 12:05:12
a148. You Cannot Pass?! | From: [111.243.54.156] | 發表日期 : 2015-07-27 07:04
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」。

 
ZeroJudge Forum