?? p1002.bak
字號:
program p1002;
const
MAXL=100000000;
var
a:array[0..MAXL] of boolean;
f:array[0..MAXL] of longint;
ll,s,t,m,i,j,k:longint;
function min(x,y:longint):longint;
begin
if x<=y then min:=x
else min:=y;
end;
function max(x,y:longint):longint;
begin
if x>=y then max:=x
else max:=y;
end;
begin
readln(ll);
readln(s,t,m);
fillchar(a,sizeof(a),false);
for i:=1 to m do begin
read(k);
a[k]:=true;
end;
if a[0] then f[0]:=1
else f[0]:=0;
for j:=0 to ll do begin
for k:=s to min(t,ll-j) do begin
i:=j+k;
if a[i] then
f[i]:=max(f[i],f[j]+1)
else
f[i]:=max(f[i],f[j]);
end;
end;
writeln(f[ll]);
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -