?? t2001_2.pas
字號:
program t2001_2;
var n,k:integer;
function f(s,t,k:integer):longint;
var i:integer;sum:longint;
begin
if k=1 then f:=1
else begin
sum:=0;
for i:=s to t div k do
sum:=sum+f(i,t-i,k-1);
f:=sum;
end;
end;
begin
assign(input,'t2.in');
reset(input);
readln(n,k);
close(input);
assign(output,'t2.out');
rewrite(output);
writeln(f(1,n,k));
close(output);
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -