讨论 / 蜘蛛墙
烂笔头 2010-07-23 17:51:00
点我顶贴 收藏 删除
program spider;

var

n,x,y,xy,k,s:extended;

begin

readln(n);

read(x,y,xy);

k:=(xy-x-y)/2/x;

writeln(k:1:3);

s:=n*y-n*x*k*k;

write(s:1:3);

end.

查看更多回复
提交回复