wwjjxx 2014-01-24 22:52:08
点我顶贴
收藏
删除
var a,f:array[-900..1000]of longint;
i,x,n,j,s,t,m,min:longint;
begin
readln(n);
fillchar(a,sizeof(a),0);
fillchar(f,sizeof(f),0);
readln(s,t,m);
for i:=1 to m do
begin
read(x);
a[x]:=1;
end;
for i:=1 to n do
begin
min:=maxlongint;
for j:=s to t do
begin
if min>(f[i-j]+a[i]) then
min:=(f[i-j]+a[i]);
end;
f[i]:=min;
end;
writeln(f[n]);
end.