记录编号 138348 评测结果 AAAAAAAAAA
题目名称 [冲刺NOIP2014]倒水 最终得分 100
用户昵称 Gravatar筽邝 是否通过 通过
代码语言 Pascal 运行时间 0.022 s
提交时间 2014-11-05 20:28:21 内存使用 0.17 MiB
显示代码纯文本
program cojs1416;
var
  n,k:longint;
  ans:int64;

function count(x:longint):longint;
var
  t:longint;
begin
  t:=0;
  while x>0 do
  begin
    x:=x-(x and (-x));
    inc(t);
  end;
  exit(t);
end;

begin
assign(input,'pwater.in');reset(input);
assign(output,'pwater.out');rewrite(output);

  readln(n,k);
  ans:=0;
  while count(n)>k do
  begin
    inc(ans,n and (-n));
    n:=n+n and (-n);
  end;
  writeln(ans);

close(input);close(output);
end.