记录编号	21215	评测结果	AAAAAAAAAA
题目名称	倒水	最终得分	100
用户昵称	donny	是否通过	通过
代码语言	Pascal	运行时间	0.004 s
提交时间	2010-11-08 19:11:50	内存使用	0.11 MiB

program watera;
var
  a:array[1..31]of longint;
  i,j,l:longint;
  n,k:longint;
  min:longint;
  max:longint;
procedure sou(const x,y:longint);
var
  i,j:longint;
begin
  if k<=0 then begin min:=a[y]-x; exit; end
  else
  begin
    for i:=1 to 30 do
      if x<a[i] then
      begin
        j:=i-1;
        dec(k);
        sou(x-a[j],j);
        break;
      end;
  end;
end;
begin
  assign(input,'watera.in');
  reset(input);
  assign(output,'watera.out');
  rewrite(output);
  readln(n,k);
  a[1]:=2;
  for i:=2 to 30 do
    a[i]:=a[i-1]*2;
  min:=0;
  sou(n,0);
  writeln(min);
  close(input);
  close(output);
end.