没１３ 2009-09-13 06:47:00
点我顶贴
收藏
删除
program shulie；
var
n,k:integer；
a:array[1..10000] of longint；
procedure init；
begin
readln(k,n)；
end；
procedure getn；
var v,i,j:integer；
begin
j:=1；
v:=1；
a[v]:=1；
repeat
inc(j)；
a[j]:=a[v]*k；
v:=j；
for i:=1 to v-1 do
begin
inc(j)；
a[j]:=a[i]+a[v]；
if j=n then break；
end；
until j=n；
end；
procedure print；
begin
write(a[n])；
readln；
readln；
end；
Begin
init；
getn；
print；
end.