ac1009.pas

来自「uralcode」· PAS 代码 · 共 14 行

program ural1009;
const
  maxn=16;
var
  c:array[0..maxn]of longint;
  n,k,i:byte;
begin
  readln(n,k);
  c[0]:=1;c[1]:=k-1;
  for i:=2 to n do
    c[i]:=(k-1)*(c[i-1]+c[i-2]);
  writeln(c[n]);
end.