!!!!

此题题解害人！！！！！！！！！！！！！１１

抄的怎么还是90分！！！

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：90 有效耗时：0ms

var x,y,c,d,a,b,max,x1,x2:extended;

n,i:longint;

begin

readln(n);c:=0;max:=0;

readln(x,y);x1:=x;x2:=y;

for i:=2 to n do begin

readln(a,b);

d:=sqrt(sqr(x-a)+sqr(y-b));

if maxmax then max:=d;

c:=c+d;

writeln(c-max:0:3);

end.

才发现原来可以不写program……

附

program temp;

var

x,y:array [1..100000] of extended;

i,n:longint;

s,t,max:extended;

begin

readln(n);

for i:=1 to n do

readln(x[i],y[i]);

x:=x[1];

y:=y[1];

for i:=2 to n+1 do begin

t:=sqr(x[i]-x)+sqr(y[i]-y);

t:=sqrt(t);

if t>max then max:=t;

s:=s+t;

end;

writeln((s-max):0:3);

readln;

end.