ac1241.pas

来自「同济大学 Online在线题库 AC源代码合集 程序设计竞赛必看资料」· 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.