裸的爆搜啊= =...... 只过了n<=3的....n=4的还没调出来QAQ

全排列咋写来着，求思想

这算法实在太裸了= =.....

1048576？
这题错了？
不要做了。

笑崩了

“请计算出和入口单元格..........”语文老师死的早，刚开始硬是没看懂= =......广搜就好

裸搜40，试下贪心= =

求神牛解答，为什么有三个点是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..........