连续自然数和-洛谷 1147

题目描述

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

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

输入输出格式

输入格式：

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

输出格式：

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

输入样例1：

10000

输出样例1：

18 142

297 328

388 412

1998 2002

题解：

按题目要求求就行了，然后逐一记录。

代码：

var n,p,s,i:longint;
begin
  readln(n);
  for i:=1 to n div 2+1 do
  begin
    s:=0;
    p:=i;
    repeat
      s:=s+p;
      inc(p);
      if s=n then
      begin
        writeln(i,' ',p-1);
        break;
      end;
    until s>n-p;
  end;
end.