如果发现广告等破坏行为，请尽量将条目恢复到较早的版本而不是把相应内容直接删除，谢谢合作。

URAL/1688

来自"NOCOW"

跳转到: 导航, 搜索

program t1688; var 

 h:array [0..5000] of int64;
 n,m,a,b,p:int64;
 i,j:longint;

begin 

 readln(a,b);
 for i:=1 to b do
   readln(h[i]);

 n:=-1;
 for i:=1 to b do
 begin
   m:=m+h[i];
   if a*3<m then inc(n);
 end;
 if n=-1 then writeln('Team.GOV!')
 else writeln('Free after ',b-n,' times.');

end. {千万不要排序啊！否则WA10！}

来自"http://www.nocow.cn/index.php/URAL/1688"
个人工具