本文主要是介绍2017.6.4 入门组 NO.5——序列,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!
f[i,j*k]:=f[i,j*k]+f[i-1,j];
设f[i,j]表示前i个,当那一位数字为j*k的时候的最大好序列个数
代码如下:
constmaxn=2000;p=1000000007;
varf:array [1..maxn,1..maxn] of longint;i,j,k,n,m:longint;ans:int64;
beginreadln(n,m);for i:=1 to n dof[1,i]:=1;for i:=2 to m dofor j:=1 to n dofor k:=1 to n div j dof[i,j*k]:=(f[i,j*k]+f[i-1,j]) mod p;for i:=1 to n do ans:=(ans+f[m,i]) mod p;writeln(ans);
end.
这篇关于2017.6.4 入门组 NO.5——序列的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!