PersonalCorpus 版 (精华区)

149590 05:25:39 2 Mar 2002
Bozhang,HIT,P.R.China 1009 Pascal Accepted 0.01 sec 49K


var
    s:array[1..18,1..2] of integer;
    i,k,n:integer;
begin
    readln(n,k);
    s[1,1]:=0;
    s[1,2]:=k-1;
    for i:=2 to n do begin
        s[i,1]:=s[i-1,2];
        s[i,2]:=(s[i-1,1]+s[i-1,2])*(k-1);
    end;
    writeln(s[n,1]+s[n,2]);
end.