K好数（K-Good Number） 如果一个自然数N的K进制表示中任意的相邻的两位都

DP：
设【a,b】为第a位,填b时的方案数（假定这时一共只有a位）
则转移方程：【a,b】=∑（【a-1,c】Ⅰc符合要求）
附程序
var
a,b,c,d,k,l:longint;
sum:qword;
f:array[0..16,0..16] of qword;
begin
fillchar(f,sizeof(f),0);
readln(k,l);
for b:=0 to k-1 do f[1][b]:=1;//第一位每个数只有一种
for a:=2 to l do
for b:=0 to k-1 do
for c:=0 to k-1 do if abs(b-c)1 then//这里判断是否符合要求
inc(f[a][b],f[a-1][c]);//就是上面那个方程
sum:=0;
for b:=1 to k-1 do inc(sum,f[l][b]);
writeln(sum);
end.
纯手打望采纳