求和 sum

<span style="font-family: Arial, Helvetica, sans-serif;">const</span>

 maxn=100000;var a:array [1..maxn] of longint; i,j,n,m,p,s,tot:longint;begin assign(input,'sum.in'); reset(input); assign(output,'sum.out'); rewrite(output); readln(n); while 1=1 do begin  inc(i);  s:=s+i;  if s<n then continue;  if s=n then  begin   writeln(i);   break;  end;  if s>n then  begin   if (s-n) mod 2=1 then continue;   p:=s-n;   for j:=i downto 1 do    if (j*2)<=p then    begin     inc(tot);     a[tot]:=j;     p:=p-j*2;    end;   if p=0 then   begin    writeln(i);    break;    end;   tot:=0;  end; end; for i:=tot downto 1 do  writeln(a[i]); close(input); close(output);end.hjy

一开始全部加起来，如果比要求的大就可以判断，如果差是偶数，那么就一定可以的。

我的程序还复杂了。。。。。