Pascal和数学相结合的题

这种题很简单嘛(如果在数据和精度上要求都不是很大的话)
只要调用Math库就可以了

(题很简单,我相信你只是不会调用Math库吧);
你仔细看一下吧 有你想要的东西

在FP中，Math库为我们提供了丰富的数学函数。以下介绍在OI中可能会用到的Math库中一些函数、过程。
使用方法：在程序头用Uses语句加载Math库

例子：
Program Ex_Math;
Uses Math;
Begin
Writeln(hypot(3,4));
End.

函数介绍：

hypot
原型：function hypot(x:float;y:float):float
功能：返回直角三角形中较长边的长度，也就是sqrt(sqr(x)+sqr(y))

ceil
原型：function ceil(x:float):Integer
功能：返回比参数大的最小整数
引发错误：在x超出Integer的范围时会引发溢出错误

floor
原型：function floor(x:float):Integer
功能：返回比参数小的最大整数
引发错误：在x超出Integer的范围时会引发溢出错误

power
原型：function power(base:float;exponent:float):float
功能：返回base的exponent次方
引发错误：在base为负数且exponent为小数时

intpower
原型：function intpower(base:float;const exponent:Integer):float
功能：返回base的exponent次方

ldexp
原型：function ldexp(x:float;const