Question

noip2010复赛water一题

var
i,j,k,m,n:integer;
w:array[1..10000]of integer;
t1,t2:text;
begin
assign(t1,'water.in');assign(t2,'water.out');
reset(t1);rewrite(t2);
readln(t1,n,m);
for i:=1 to n do read(t1,w[i]);
j:=n;
while j>0 do
begin
for i:=1 to n do if w[i]=0 then begin dec(j);w[i]:=w[m+n-j];end;
for i:=1 to m do dec(w[i]);
inc(k);
end;
writeln(t2,k-1);
close(t1);close(t2);
end.
我的程序是这样的，大家看看还有什么改进的——倒数第二个数据超时。不知为什么最后一组数据测的答案不对。O(∩_∩)O谢谢~

Answer 1

题目呀！ 我有！！！！！！
第一题：two 第一题 给出一个范围(L,N)求 在这个范围整数中2出现的次数 2<=L<N<=10000
第二题：water 第二题是一群沙茶装水，n个人m个水龙头，第i人用时wi
第三题：missile 第三题是导弹拦截给武器坐标x1x2y1y2和导弹xiyi求拦截最小代价
第四题: sanguo 第四题是三国，就是你和电脑选排，电脑的策略是破坏你最好的组合，求在电脑的干扰下去取得的最好情况
哈哈，我只知道大概意思，这回我比的很好呢

Answer 2

你不是吧你，我都在备战gzoi了，明天就考了，你还在这问这种水题。。。。