var
n,i,ans:integer;
s1,h,v,l,k,t1,t2,left,right:real;
begin
readln(h,s1,v,l,k,n);
t1:=sqrt((h)/5);
t2:=sqrt((h-k+0.00001)/5);
left:=s1-v*t1;
right:=s1+l-v*t2;
for i:=0 to n-1 do
if (i>=left-0.00001)and(i<=right+0.00001) then inc(ans);
write(ans);
end.

这位大神的程序中就有这个