1148. 【克罗地亚】INSTRUKCIJE

最新推荐文章于 2018-04-08 17:16:12 发布

Yongqian-Peng

最新推荐文章于 2018-04-08 17:16:12 发布

阅读量1.1k

点赞数 2

分类专栏： TJ

本文链接：https://blog.csdn.net/MKMMKD/article/details/51852050

版权

TJ 专栏收录该内容

9 篇文章 0 订阅

订阅专栏

T1：题目有点坑，题意在比赛的时候就理解错误，以为是数列中第A开始的B个数之和，样例：A=1，B=3,答案：1+2+2=5样例太少不具有代表性又没有样例解释。

var
        i,j,n,s,ans,d,k,a,b,t:longint;
begin
        readln(a,b);
        n:=b;
        while s<n do
        begin
                if k=0 then
                begin
                        inc(i);
                        d:=i;
                        k:=i;
                end;
                inc(ans,d);
                dec(k);
                inc(s);
        end;
        d:=0;
        k:=0;
        s:=0;
        i:=0;
        while s<a-1 do
        begin
                if k=0 then
                begin
                        inc(i);
                        d:=i;
                        k:=i;
                end;
                inc(t,d);
                dec(k);
                inc(s);
        end;
        writeln(ans-t);

end.