ac1255.pas

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

program ural1255;
var
  n,k:word;
function min(a,b:word):word;
  begin
    if a<b then min:=a else min:=b;
  end;
begin
  read(n,k);
  if n<k then
    writeln(0)
  else
    writeln((sqr(n)-sqr(min(n mod k,k-n mod k))) div k);
end.