洛谷 1147——连续自然数和（简单数学问题）

题目描述

对一个给定的自然数M，求出所有的连续的自然数段，这些连续的自然数段中的全部数之和为M。

例子：1998+1999+2000+2001+2002 = 10000，所以从1998到2002的一个自然数段为M=10000的一个解。

输入输出格式

输入格式：
包含一个整数的单独一行给出M的值（10 <= M <= 2,000,000）。

输出格式：
每行两个自然数，给出一个满足条件的连续自然数段中的第一个数和最后一个数，两数之间用一个空格隔开，所有输出行的第一个按从小到大的升序排列，对于给定的输入数据，保证至少有一个解。

输入输出样例

输入样例#1：
combo.in
10000
输出样例#1：
combo.out
18 142
297 328
388 412
1998 2002

---

其实思想很简单。从一开始枚举i（从i开始累加，即为第一个），然后在循环里在一个循环来枚举j（从i到第j个）然后sum+j。如果sum小于m则继续搜索，如果等于则将k+1，将当前枚举到的i和j存起来，如果sum大于m则break。最后输出就得了。

---

代码如下：

type
  shu=record
  x,y:longint;
end;

var
  sum,i,j,k,m:longint;
  a:array[1..100] of shu;
begin
  readln(m);
  k:=0;
  for i:=1 to m do 
    begin
      sum:=i;
      for j:=i+1 to m do 
        begin
          sum:=sum+j;
           if sum<m then continue
           else 
             if sum=m then 
               begin
                 inc(k);
                 a[k].x:=i;
                 a[k].y:=j;
               end
             else 
               begin 
                 break; 
               end;
        end;
    end;
  if k<>0 then for i:=1 to k do writeln(a[i].x,' ',a[i].y);
end.