返回顶部

收藏

ACM 1001: Sum Problem 求和问题 pascal解法

更多
program hdu_1001;
var
i,n,sum:longint;
begin
while not eof(Input) do
begin
readln(n);
if(n mod 2=0) then
sum:=n div 2 * (n+1)
else
sum:=(n+1) div 2 * n;
writeln(sum);
writeln;
end;
end.

标签:ACM,求和问题,Pascal

收藏

0人收藏

支持

0

反对

0

相关聚客文章
  1. 蓝飞 发表 2013-05-05 08:01:41 [ACM_NYOJ_8]一种排序
  2. Jecvay 发表 2014-10-19 06:42:09 hihoCoder week 16 RMQ ST
  3. yuan 发表 2015-04-09 16:26:19 POJ 1204 Trie图 AC自动机
  4. D 发表 2014-10-11 07:34:00 LA3708 题目分析
  5. tbfito 发表 2016-03-05 12:49:56 一天一道ACM之构造法(poj3295)
  6. 蓝飞 发表 2013-05-06 03:07:32 [ACM_NYOJ_27]水池数目
  7. 博主 发表 2014-10-20 00:00:00 The 39th ACM-ICPC Asia Anshan Regional Onsite Cont
  8. viviworld 发表 2015-04-17 01:13:52 衡量年限的问题
  9. yuan 发表 2015-05-21 11:43:52 HUST OJ 1017 DancingLinks 舞蹈链 精确覆盖问题
  10. tbfito 发表 2016-03-06 14:21:00 一天一道ACM之模拟法(POJ1068)
  11. 蓝飞 发表 2013-05-06 18:43:35 [ACM_NYOJ_47]过河问题
  12. Jecvay 发表 2014-11-15 12:00:06 POJ3046 Ant Counting