ac1202.pas

来自「某牛人写的acm.tongji.edu.cn上大部分ac的代码,仅供学习研究,请」· PAS 代码 · 共 13 行

program tju1202;
var
  all,one:longint;
begin
  repeat
    read(all,one);
    if (all<=one) or (all mod one=0) and odd(all div one) then
      writeln(0)
    else
      writeln(round(all/one/2));
  until seekeof;
end.