ac1241.pas

来自「这是在网络上搜集到的在东京大学的ACM上面解决的一些题目的源码」· PAS 代码 · 共 13 行

program tju1241;
var
  n,t,i,s:longint;
begin
  repeat
    read(n);t:=trunc(sqrt(n));
    s:=0;
    for i:=1 to t do
      inc(s,n div i);
    writeln(s*2-t*t);
  until seekeof;
end.