2017.6.4 入门组 NO.5——序列

本文主要是介绍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——序列的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---