var

f:array[1..10000] of longint;

i,j,s,t,m,p:longint;

l:int64;

a:array[1..100] of longint;

b:array[1..10000] of longint;

function min(i,j:longint):longint;

begin

if i0 then

for j:=i+1 to m+1 do

begin

dec(a[j],p);

dec(l,p);

end;

end;

for i:=1 to m do b[a[i]]:=1;

for i:=s to l do

begin

if i>t then

for j:=i-t to i-s do

f[i]:=min(f[i],f[j])

else

for j:=1 to i-s do

f[i]:=min(f[i],f[j]);

if f[i]=maxlongint then f[i]:=0;

f[i]:=f[i]+b[i];

end;

writeln(f[l]);

end.

都已经压缩了啊！怎么都

编译通过...

├ 测试数据 01：运行时错误...|错误号: 216

├ 测试数据 02：运行时错误...|错误号: 216

├ 测试数据 03：运行时错误...|错误号: 216

├ 测试数据 04：运行时错误...|错误号: 216

├ 测试数据 05：运行时错误...|错误号: 216

├ 测试数据 06：运行时错误...|错误号: 216

├ 测试数据 07：运行时错误...|错误号: 216

├ 测试数据 08：运行时错误...|错误号: 216

├ 测试数据 09：运行时错误...|错误号: 216

├ 测试数据 10：运行时错误...|错误号: 216

求助