为什么我的答案和输出一样却还是贵了。。。
题目 370 数字频率
2013-07-21 18:25:17
|
|
我是输入弱>.<如果没有明确说明输入内容有几行我就惊呆了!!求救~
题目 370 数字频率
2013-07-21 14:28:40
|
|
我还以为是Facebook的那部电影==
题目 15 [NOI 2007]社交网络
2013-07-21 11:22:03
|
|
暴力
题目 483 买票
2013-07-17 21:40:30
|
|
模拟给A了...蛋疼
题目 154 [USACO Nov07] 阅读大赛
2013-07-16 11:58:33
|
|
这不是坑爹么?明明说全部利用且只利用这n元,谁知道可以不必全部用完的……
题目 810 老师的工资
2013-07-16 09:02:39
|
|
。。。啊喂!怎么必须是六位小数?
题目 126 [USACO Mar08] 自动统计机
2013-07-14 23:09:21
|
|
注意坐标相同时为0 0 0 0
题目 800 [POJ1657] 棋盘上的距离
2013-07-14 23:08:34
|
|
0/-1=-0
头一次见...
题目 47 [NOIP 2000PJ]计算器的改良
2013-07-14 12:30:43
|
|
评论暂不可见! |
|
原来只是因为开小了..........
题目 162 [USACO Mar07] 焰火表演
2013-07-13 12:16:34
|
|
。。。第一回true 拼错了。
|
|
不开O2比开了要快。。
|
|
求pascal答案,
题目 448 神牛果
2013-07-12 10:39:34
|
|
有3个点k超1000了,最大的是5730
|
|
又是一道高精乘练手……
|
|
p次DFS处理出来每个潜在客户可以到达哪些点,然后尝试用费时较小的代替较大的,若必须选这个客户再用它代替所有可达的
比赛的时候心态太浮躁了……然后就写跪了…… |
|
说好的Special Judge呢?!
|
|
program duilie;
var a:array[1..2000] of integer; i,n,m,k,j,v:integer; begin assign(input,'queue.in'); reset(input); assign(output,'queue.out'); rewrite(output); readln(k); n:=0; m:=1; for i:=1 to k do begin read(j); case j of 1: begin n:=0; m:=1; end; 2: begin n:=n+1; read(a[n]); if n-m=10 then begin n:=n-1; writeln('queue out'); end; end; 3: begin m:=m+1; if m>n+1 then begin m:=m-1; writeln('queue empty'); end; end; 4: begin writeln(n-m+1); for v:=m to n do write(a[v],' '); end; end; end; close(input); close(output); end. |
|
最后一个点坑
题目 389 中考分数
2013-07-06 15:30:32
|