讨论 / 哪边错了
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.

#1 性徐的人@2012-04-12 23:54:00
回复 删除
提问

这是哪题

查看更多回复
提交回复