fts96 2012-01-26 05:10:00
点我顶贴
收藏
删除
program mi;
var
n,p1,p,l,i,j,ll:dword;
begin
readln(l);
n:=l;
repeat
inc(j);
n:=n div 2;
until n=0;
ll:=1;
for i:=1 to j-1 do
ll:=ll*2;
p:=abs(ll-l);
ll:=1;
for i:=1 to j do
ll:=ll*2;
if abs(ll-l)<p then p:=abs(ll-n);
write(p);
readln
end.
p:=abs(ll-n);
这句打错成这样AC，打对WA75……出题人是不也打错了……