題意

把1到n中，所有數(shù)的約數(shù)數(shù)量相加。

分析

從它給出的樣例中，我們可以得出這樣的規(guī)律：t:=(n/1)+(n/2)+...(n/n-1)+(n/n);

var
n,i,t:longint;
begin
? ? read(n);
? ? t:=0;
? ? for i:=1 to n do
? ? t:=t+(n div i);
? ? write(t);
end.

轉(zhuǎn)載于:https://www.cnblogs.com/YYC-0304/p/9500218.html

總結(jié)

以上是生活随笔為你收集整理的约数研究pascal程序的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。