Question

【循环嵌套】尼科梅彻斯分解式 Pascal

问题 G: 【循环嵌套】尼科梅彻斯分解式
时间限制: 1 Sec 内存限制: 128 MB
提交: 49 解决: 31
[提交][状态][讨论版]
题目描述
任何一个整数的立方都可以写成一串奇数之和。这就是著名的尼科梅彻斯（Nicomachus）定理。
1(3)＝1
2(3)＝3+5＝8
3(3)=7+9+11=27
编程求出输入的N以内的数的尼科梅彻斯分解式。
n<=100；

输入
一个整数

输出
一行，一个等式

样例输入
3

样例输出
3(3)=7+9+11=27

Answer 1

var i,n,s:longint;

begin

  readln(n);

  i:=n*(n-1) div 2;

  s:=i+i+1;

  write(n,'(3)=',s);

  for i:=i+1 to i+n-1 do

  begin

    write('+',i+i+1);

    s:=s+(i+i+1);

  end;

  writeln('=',s);

end.

Answer 2

var
n,i:longint;

begin
readln(n);

write(n,'(3)=');

if n mod 2=1 then

begin
for i:=sqr(n)-2*(n div 2) to sqr(n)+2*(n div 2-1) do

if i mod 2=0 then write(i,'+');
write(sqr(n)+2*(n div 2));
if n>1 then writeln('=',n*n*n);
end
else
begin
for i:=sqr(n)+1-2*(n div 2) to sqr(n)-1+2*(n div 2-1) do

if i mod 2=0 then write(i,'+');
write(sqr(n)-1+2*(n div 2));
writeln('=',n*n*n);
end;
end.