2017.6.4测试 题五 序列

var  f:array[0..2000,0..2000]of longint;  n,kk,i,j,k,ans:longint; begin  readln(n,kk);  for i:=1 to n do f[1,i]:=1;//1是每个数的倍数  for i:=1 to kk-1 do   for j:=1 to n do//n个数    for k:=1 to n div j do//n是

>>阅读原文<<