程序:
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.6miu.com/read-96124.html
