ac1327.pas

来自「Ural(Acm.timus.ru)题解 By Maigo大牛」· PAS 代码 · 共 11 行

program ural1327;
var
  a,b:word;
begin
  read(a,b);
  if not odd(a) and not odd(b) then
    writeln((b-a) shr 1)
  else
    writeln((b-a) shr 1+1);
end.