可否边读入边处理输出
此代码提交后显示 运行时错误
program hard(input,output);
var
a,b,c,i,ans,n,l:longint;
x,y:array[1..50000] of longint;
begin
assign(input,'hard.in');
reset(input);
assign(output,'hard.out');
rewrite(output);
readln(n);
for i:=1 to n do
read(x[i]);
ans:=0;
l:=0;
repeat
inc(l);
read(a);inc(a,ans);
read(b);inc(b,ans);
read(c);inc(c,ans);
for i:=1 to n do
if (a*(i+1)*x[i]*x[i]+(b+1)*i*x[i]+(c+i))=0 then
begin
ans:=i;
y[l]:=ans;
break;
end;
until (a=0)and(b=0)and(c=0);
for i:=1 to n-1 do writeln(y[i]);
close(input);
close(output);
end.

回复2楼：
用C++其实更方便，用直接用algorithm中的sort()即可。

刘汝佳黑书上的一道题简化而来

一定要看好S的输入，否者会吃大亏的！！！！！

终于AC了，好难啊

改变了枚举的顺序，多过了一组

靠人品的搜索题

放弃……我的提前判错最对可以再多对一组……

Cheat一下，看看其他人代码

原来是有一步搜索前的查错

oeiaoeiao

oeiaoeiao

ouioeuio

test

test

求2階的詳細解法

奇奇怪怪的 SPFA 居然过了～

求解

第五组电脑上能过评测时出错，不得已cheat，正常用时为0.073 s，总之这是个挺快的算法

那你！！！！