Ý tưởng

Gọi `a` là số nhỏ nhất và `a+m` là số lớn nhất trong tổng đó

Khi đó: `a+(a+1)+(a+2)+...+(a+m)=n`

Tổng đó có `(a+m-a)/1+1=m+1`

Số hạng đầu là `a` và số hạng cuối là `a+m`

`=>` `a+(a+1)+(a+2)+...+(a+m)=((m+1)*(a+a+m))/2`

`=((m+1)*(2a+m))/2`

`=(m^2+(2a+1)m+2a)/2`

`=>` `m^2+(2a+1)m+2a=2n \ (1)`

`=>` `m^2+2am+m+2a=2n`

`=>` `m(m+1)+2a(m+1)=2n`

`=>` `(m+1)(2a+m)=2n`

Nhận thấy `m+1` và `2a+m` đều là ước của `2n`

Vì vậy ta chỉ cần xét các ước của `2n` để tìm được hai số tự nhiên `a` và `m` thỏa mãn `(m ne 0)`

Code

uses crt;
var n,i,m,a,j: longint;
begin
    readln(n);
    n := 2*n;
    for i := 31622 downto 2 do
        if n mod i = 0 then
        begin
            m := i - 1;
            a := (n div i) - m;
            if (m <> 0) and (a mod 2 = 0) and (a >= 0) then begin
                writeln('CO');
                a := a div 2;
                for j := a to a + m do
                    if j <> 0 then write(j, ' ');
                halt;
            end;
        end;
    write('KHONG');
end.