朴素能得个差不多吧…… 这题改进算法真恶心 pascal一直过不了,难道非得转c++? 代码:(pascal) var n,k,i,l,r,m:longint; ans:qword; function ceil(x:real):longint; begin ) else exit(trunc(x)); end; procedure main; begin readln(n,k); ans:=; if n>k then begin inc(ans,(n-k)*k); n:=k; end; m:=c…