首页 > 试题广场 >

Var n, m, i, ans : Integer;

[填空题] 
Var
  n, m, i, ans : Integer;
Begin
  Readln(n, m);
  ans := 0;
  i := n;
  While i <= m Do
  Begin
    ans := ans + i;
    Inc(i);
  End;
  Writeln(ans);
End.

输入：10 20
输出：1
查看正确选项
添加回答

这道题你会答吗？花几分钟告诉大家答案吧！

提交观点

问题信息

普及 Pascal 完善程序-Pascal 数学
上传者：牛客309901号
难度：
0条回答 863浏览

热门推荐

相关试题

扫一扫，把题目装进口袋

求职之前，先上牛客

扫描二维码，进入QQ群

扫描二维码，关注牛客公众号