wujingyu 2014-04-16 08:22:29
点我顶贴
收藏
删除
var n,i,j,f:longint;
begin
readln(n);
for i:=n downto 2 do
if (i mod 2=0)and(n mod i=i div 2)and(n div i-i+2>0) then
begin f:=1;for j:=n div i-i div 2+1 to n div i+i div 2 do write(j,' ');writeln;end else
if (i mod 2=1)and(n mod i=0)and(n div i-i div 2>0) then
begin f:=1;for j:=n div i-i div 2 to n div i+i div 2 do write(j,' ');writeln;end;
if f=0 then write('NONE');
end.