题意
把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.
题意
把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.