约数研究pascal程序

题意

把1到n中，所有数的约数数量相加。

分析

从它给出的样例中，我们可以得出这样的规律：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.