jzoj 1148. 【克罗地亚】INSTRUKCIJE

最新推荐文章于 2021-05-05 16:30:09 发布

coz_Indira

最新推荐文章于 2021-05-05 16:30:09 发布

阅读量783

点赞数

分类专栏：模拟

本文链接：https://blog.csdn.net/coz_Indira/article/details/52260227

版权

模拟专栏收录该内容

3 篇文章 0 订阅

订阅专栏

题目描述

小马克今年成为小学生。不久后她将进行她的第一次考试，其中包括数学考试。她非常认真地复习，她认为自己已经准备好了。她的哥哥通过给她提出问题并解决的方式帮助她。
他写下许多问题，其中一个问题是由一连串整齐的数字组成，比如1个1,2个2,3个 3 等等。现在他给马克两个整数A和B；她的任务是找出由这两数描述的数列的和。如果A是1，B是3，答案为1+2+2=5。
写一个程序，然后计算它们的和，马克的哥哥能够验证答案正确与否。

输入

一行包括正整数A和B，1≤A ≤B≤1000

输出

输出和仅显示一行

样例输入

1 3

样例输出

数据范围限制

很水，不说什么。。。。

var
  a:array[1..10000] of longint;
  x,y,i,j,p:longint;
  ans:int64;
begin
  readln(x,y);
  for i:=1 to y do
   begin
    for j:=1 to i do
      begin
        inc(p);
        a[p]:=i;
        if p>1000 then break;
      end;
    if p>1000 then break;
   end;
  for i:=x to y do
    ans:=ans+a[i];
  writeln(ans);
end.