mahaozhou 2012-04-12 23:54:00
点我顶贴
收藏
删除
var
i,j,n,m,a,b,s:longint;
begin
readln(n,m);
for i:=n to m do
begin
a:=0;
b:=0;
j:=i;
while j<>0 do
begin
if j mod 2=1 then
inc(a)
else
inc(b);
j:=j div 2;
end;
if a<=b then
inc(s);
end;
writeln(s);
end.