简单!!但为什么长度为一时,只有k-1个K好数呢???????????????????????????????????????????????????????

read(k,l);

for i:=0 to k-1 do

f[1,i]:=1;

for i:=2 to l do

for j:=0 to k-1 do

for g:=0 to k-1 do

if (g(j+1))and(g(j-1))

then f:=f+f;

for i:=1 to k-1 do

total:=total+f[l,i];

writeln(total);

就这么简单。。。

program kgood;

var l,k,i,j,q,s:integer;

f:array[1..10,-1..16] of integer;

begin

readln(k,l);

fillchar(f,sizeof(f),0);

s:=0;

for i:=1 to k-1 do f[1,i]:=1;

for i:=2 to l do

for j:=0 to k-1 do

for q:=0 to k-1 do

if abs(j-q)1 then f:=f+f;

for i:=0 to k-1 do inc(s,f[l,i]);

writeln(s);

end.

帮忙看看哪错了?只过了6个点

没给

数据范围

还我用高精度！超时！

不用就通过了！！！！！！！！！！！！！！！！！！！！！！

用int64...

编译通过...

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

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

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

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

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

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

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

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

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

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

AC率啊啊啊啊！

数据范围...额..

用longint...

编译通过...

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

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

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

├ 测试数据 04：答案错误...　

├ 标准行输出 3358...

├ 错误行输出 8014...

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

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

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

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

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

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

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

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

用int64...

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

竟然没有数据范围...

递推。

f=f+f其中：j,p不相邻；1

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

打表才是王道

谁说枚举能过？超三个点啊。dp才是王道。

f表示前i位最后一个数是j总共有多少种

f:=f+f（abs（p-j）1）;

初始化时f[1，j]=1，f[1，0]=0。

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

某菜鸟飞过，顺便占下天花板

k,l最大不过20

我还以为很大

直接枚举就ac了

我晕．．．用 double 才行．．．．

有详细一点的分析与证明吗

什么数据呀! 当L等于1的时候 应该输出的是k的值呀 例如 K=4 L=1

应该输出 0 1 2 3 呀 明显是4个吗! 怎么会输出K-1呀!

郁闷 绝对的错误!

晕,难度2的题目用FOR循环.

相当美妙巧妙的方法...

非常非常的感谢大牛，这个递推太帅了！！

为什么大家都是三重循环?

f[1,i]:=1;(i>0);

f[j,i]:=sum(f[j-1,n]);(0

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

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

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

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

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

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

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

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

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

DP

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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