求神牛解答，为什么有三个点是E
var
a,b,c,d,e,f,g,h,i:longint;
y:array[1..3,1..5000]of int64;
begin
assign(input,'elect.in');
reset(input);
assign(output,'elect.out');
rewrite(output);
read(a,f);
for b:=1 to a do begin
read(y[1,b],y[2,b]);y[3,b]:=b;end;
begin
for c:=1 to f do
for d:=c+1 to a do
if y[1,c]<y[1,d] then begin
e:=y[1,c];y[1,c]:=y[1,d];y[1,d]:=e;
e:=y[2,c];y[2,c]:=y[2,d];y[2,d]:=e;
e:=y[3,c];y[3,c]:=y[3,d];y[3,d]:=e;
end;
for g:=1 to f do
if h<y[2,g] then begin
h:=y[2,g];i:=y[3,g];end;
end;
write(i);
close(input);close(output);
end.

...

DP太弱了....写个这都感觉会错= =....

把判断函数变成内置函数就过了。。还有一点可以优化，判断从2-sqrt（x）

我去年买了个登山包，超耐磨。
wqnmlgdsb,cnm.

这道题需要用高精度乘法（背代码狗撸过）.....然后就是主要的算法思想：将这个数分成以2为首项公差为1的等差数列，最后肯定会有一个余数然后从后往前将这个数均匀的撒在前几个数中（即+1），若分完一遍发现余数不为0则继续从后往前撒，然后相乘就好了，（这种题谁能想得出来啊喂QAQ.....）....最DT的是第一次交的时候发现c数组初始化不为0.....我明明开的是局部变量啊魂淡TAT....

Gold Miner!

Gold Miner!

Gold Miner!

Gold Miner!

pascal中extended的范围是3.4e^-4932~1.1e^4932，并且精度超高，可过此题

哎....背下来的高精乘TAT..........

算法导论，你值得拥有QAQ.....

交了个大一写的好奇怪的project给过了

不用高精，实型怒骗满分

暴力得80，可以接受……

少个continue.....查了半个小时

= =剪枝的威力——写dfs写惯了每次回溯时将bool变量返回false，但这题完全不需要啊。。。每次查找时清回{false}就可以了。。。水过。

题目不是说“第二行是卡片上互不相同的编号”么，第二个数据为何有两个125？

好吧好吧，LS那个程序写着玩就好......这个正解 强连通分量 ~~~QAQ