任何上个整数的立方都可以定成一串相邻奇数之和,这就是著名的尼科梅斯定理,如:1的立方等于1,2的立方等于3+

Pascal程序:
Program Exam35；
Var n，m，x，t，s : integer；
Begin
write(’input n:’)； readln(n)； {输入N }
m:=(n*(n-1) div 2)+1； {找到第m个奇数 }
x:=2*m-1； t:=1； {算出第m个奇数的值x，是所求的第一个}
write(n’*’，n，’*’，n，’=’，x)；{输出第一个}
s:=x; {用S计算和 }
if n＞1 then
Repeat
inc(x,2)； { 计算下一个奇数 }
write (’+ ’，x) ； {加上下一个奇数 }
inc (t )； inc (s，x)； { 计个数并累加和 }
Until t=n； {直到n个 }
Writeln (’= ’，s ) ；
Readln
End.