记录编号	203827	评测结果	AAAAA
题目名称	[NOIP 2002]自由落体	最终得分	100
用户昵称	lyl610	是否通过	通过
代码语言	Pascal	运行时间	0.000 s
提交时间	2015-11-03 18:06:27	内存使用	0.17 MiB

var
h,s,v,l,k,t,t1,g:real;
n,i,total:longint;
begin
assign(input,'freefaller.in');reset(input);
assign(output,'freefaller.out');rewrite(output);
read(h,s,v,l,k,n);
g:=10;
t:=sqrt((h-k)*2/g);
t1:=sqrt(h*2/g);
total:=0;
for i:=n-1 downto 0 do
if ((s-v*t-i)/v<=t1-t+0.00001) and (s+l-v*t>=i) then inc(total);
write(total);
close(input);close(output);
end.