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

来源:学生作业帮助网 编辑:作业帮 时间:2024/03/29 15:34:34
任何上个整数的立方都可以定成一串相邻奇数之和,这就是著名的尼科梅斯定理,如:1的立方等于1,2的立方等于3+

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

任何上个整数的立方都可以定成一串相邻奇数之和,这就是著名的尼科梅斯定理,如: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.