就这么短，坑爹的＝。＝
var
n,k,i,t,ans:longint;
begin
readln(n,k); ans:=0;
for i:=1 to k do
begin
t:=trunc(n/2);
ans:=ans+t;
n:=n-t;
end;
writeln(ans);

end.

样例：1989 5
第一次：出去 1989div2=994.剩余995
第二次：出去 994+（995 div2）=…………
自己算算

没错 绝对没错

rt