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是

>>阅读原文<<