gift

最新推荐文章于 2023-02-18 11:09:05 发布

huangja

最新推荐文章于 2023-02-18 11:09:05 发布

阅读量535

点赞数

本文链接：https://blog.csdn.net/huangja/article/details/71136420

版权

题目描述

圣诞节这天，某商店准备了N个礼品盒，分别用整数1-N进行编号。其中，编号为1的盒子中有一个糖果，编号为2的盒子中有2个糖果，。。。编号为N的盒子中有N个糖果。这天一早，中山幼儿园的K个小朋友一起来到这间商店。作为当天的第一批顾客，这些小朋友可以从这N个礼品盒中选出两个拿走。小朋友们商量了一会儿后决定，他们拿走的糖果并不一定要多，但是一定要能够刚好平分给每个人。即拿走的两个盒子中的糖果总数一定要使K的倍数。现在他们想知道一共有多少种方案可供选择。

输入

每行两个正整数N和K，其中1<=N<=10^9,1<=K<=10^9。一行N=K=0
表示输入结束，这一行不用处理。

输出

对输入中除了N=K=0外的每一行，输出一行，这一行只有一个数，即其相对应的输入所得到的方案数。

样例输入

样例输出

数据范围限制

20%的数据N<=100;
80%的数据K<=1000;
每个输入文件最多有200行输入数据。

var
        n,m,ans1,i1:longint;
        i,j,ans:int64;
        v:Array[1..200]of longint;
begin
        assign(input,'gift.in');reset(input);
        assign(output,'gift.out');rewrite(output); 
        while true do
        begin
                inc(ans1);
                readln(n,m);
                if (n=0)and(m=0) then
                        halt;
                i:=n mod m;
                j:=n div m;
                ans:=0;
                if n+n-1<m then
                begin
                        writeln(0);
                        continue;
                end;
                if m=2 then
                begin
                        if i=1 then
                                ans:=((j*(j+1)) div 2)+((j*(j-1))div 2);
                        if i=0 then
                                ans:=(j*(j-1));
                        writeln(ans);
                        continue;
                end;
                if ((m-1)mod 2)=0 then
                begin
                        if i<=((m-1)div 2) then
                                ans:=j*(j+1)*i+j*j*(((m-1)div 2)-i);
                        if i>((m-1)div  2) then
                                ans:=sqr(j+1)*(i-((m-1)div 2))+j*(j+1)*((m-1)-i);
                end;
                if ((m-1)mod 2)=1 then
                begin
                        if i<=((m-2) div 2) then
                        begin
                                ans:=j*(j+1)*i+j*j*(((m-2)div 2)-i);
                                ans:=ans+((j*(j-1)) div 2);
                        end;
                        if i=((m-2)div 2)+1 then
                        begin
                                ans:=j*(j+1)*(i-1)+((j*(j+1)) div 2);
                        end;
                        if i>((m-2) div 2)+1 then
                        begin
                                ans:=sqr(j+1)*(i-((m-2) div 2)-1)+j*(j+1)*((m-1)-i);
                                ans:=ans+(j*(j+1)) div 2;
                        end;
                end;
                ans:=ans+((j*(j-1)) div 2);
                writeln(ans);
        end;
        close(input);
        close(output);
end.