约数个数shlqsh

程序:

var
a,b,t1,t2:longint;
i:longint;
begin
    assign(input,'shlqsh.in');
    reset(input);
    assign(output,'shlqsh.out');
    rewrite(output);
    read(a,b);
    dec(a);
    t1:=0;t2:=0;
    for i:=1 to a do
    t1:=t1+(a div i);
    for i:=1 to b do
    t2:=t2+(b div i);
    write(t2-t1);
    close(input);
    close(output);
end.

转载于:https://www.cnblogs.com/YYC-0304/p/9500074.html