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.