任何一个整数的立方都可以写成一串奇数之和,这就是著名的尼科梅彻斯定理.请用pascal做出程序
1个回答

program nkmcsdl;

var i,n,j:integer;

begin

{首先输入内容}

readln(n);

{存储已经输出的数的个数,为了控制是否输出+}

j:=0;

{最小一个为n^2-n+1}

i:=n*n - n + 1;

{下面开始输出内容}

while j0 then write('+');

write(i);

i:=i+2;

j:=j+1;

end;

writeln('=',n*n*n);

end.

相关问题