Nocomachns定理.用free pascal
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/08/15 12:53:32
Nocomachns定理.用free pascal
Description
Nocomachns定理.
任何一个n的三次方一定可以表示成n个连续的奇数和.
输入:n(n
Description
Nocomachns定理.
任何一个n的三次方一定可以表示成n个连续的奇数和.
输入:n(n
![Nocomachns定理.用free pascal](/uploads/image/z/19254160-64-0.jpg?t=Nocomachns%E5%AE%9A%E7%90%86.%E7%94%A8free+pascal)
program t1;
var i,j,n,k:longint;
begin
readln(n);
j:=n*(n-1)+1;
k:=n*(n+1)-1;
write(j);
for i:=j+2 to k do
if i mod 2=1 then write('+',i);
end.
var i,j,n,k:longint;
begin
readln(n);
j:=n*(n-1)+1;
k:=n*(n+1)-1;
write(j);
for i:=j+2 to k do
if i mod 2=1 then write('+',i);
end.