讨论 / 水题!!!!
yumaosheng 2013-10-29 06:07:00
点我顶贴 收藏 删除
状态: Accepted

测评机: Virmain[1]

得分: 100分 [我要评价一下题目~]

提交日期: 2013-10-29 21:02:00

有效耗时: 813毫秒

RQNOJ近期在线比赛列表

RQNOJ2013年十一月月赛 时间:2013-11-02 18:30:00 [报名]

测试结果1: 通过本测试点|有效耗时203ms

测试结果2: 通过本测试点|有效耗时63ms

测试结果3: 通过本测试点|有效耗时78ms

测试结果4: 通过本测试点|有效耗时94ms

测试结果5: 通过本测试点|有效耗时62ms

测试结果6: 通过本测试点|有效耗时63ms

测试结果7: 通过本测试点|有效耗时62ms

测试结果8: 通过本测试点|有效耗时63ms

测试结果9: 通过本测试点|有效耗时62ms

测试结果10: 通过本测试点|有效耗时63ms

var

h,s1,v,l,k,t,s:real;

n,x,y:integer;

begin

read(h,s1,v,l,k,n);

t:=sqrt(h/5);

s:=s1-v*t;

if abs(round(s)-s)<=0.00001 then x:=round(s)

else x:=trunc(s)+1;

if x<0 then x:=0;

h:=h-k;

t:=sqrt(h/5);

s:=s1+l-v*t;

if abs(round(s)-s)<=0.00001 then y:=round(s)

else y:=trunc(s);

if y>n-1 then y:=n-1;

if (x>=n) or (y<0)

then writeln('0')

else writeln(y-x+1);

end.

查看更多回复
提交回复