这个应该归到DP吧，如果数据大点还要用到高精，建议把此题改大点数据。

要用long long...

pascal就是int64...

浪费通过率（虽然我通过率已经不高了，而且我也不在乎它了...）

Water...

编译通过...

├ 测试数据 01：运行超时...

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：运行超时...

├ 测试数据 07：运行超时...

├ 测试数据 08：运行超时...

├ 测试数据 09：运行超时...

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：50 有效耗时：0ms

这是搜索的下场....

f:=f+f(j=0)

f:=f(j0)

成功过关70道水题。

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

我也是俩数组，与congming789相似。

f:=f+f;

f:=f+f;

if i>=m then dec(f,f);

注意边界:f[1,0]:=1;f[1,1]:=1;f[0,0]:=1;

要的是：f[n,0]+f[n,1]

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

楼下应该是溢出错误,integer显然是存不下结果的.用int64就可以了.

编译通过...

├ 测试数据 01：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 07：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 08：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 09：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 10：答案错误...　├ 标准行输出

　├ 错误行输出

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：40 有效耗时：0ms

var

n,m:integer;

ans:array[-1..50]of integer;

i,j:integer;

begin

read(n,m);

ans[-1]:=1;

ans[0]:=1;

ans[1]:=2;

for i:=2 to n do

begin

if i

类似斐波那契数列的，容易发现：

f[n]:=f[n-1]+f[n-2]+...+f[n-m];

初始值f[0],f[1],..f[m-1]自己想想

楼下的分析很经典，让我学到了很多东西。

谢谢！！

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

难度为2.....

开始想搜索..可是发现复杂度....实现也麻烦....

嗯....对于每个坑:就是放/不放两种情况....所以op[i]等于op*2...但是不能连续的放....会爆炸...只有i-m-->i都放满了炸弹才爆炸...那这一部分是多少呢?...中间的一串1不必考虑,这些状态的数目就是op的啦...

所以op[i]=opt*2-op;

注意边界!!op[1]=2; 注意:i很小时,也就是i

排列组合

f[n]:=a*f[n-1]+b*f[n-2]+c*f[n-3]....(a,b,c为常数)

由于这题有另外个限制的M 所以后面的b*f[n-2]改为b*f[n-1-m]...

!不放也是一种方案!

值得纪念的一题~~~HOHO~~~

还要特殊考虑i=m时~

我是第424个通过这个程序的！！！！

大牛们的解法太帅了，本人才疏学浅，搞了半天才懂

用int64