已解决问题
谷歌uuurrr用户在提交了关于“我的战争free pascal问题”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2024-12-17T15:54:18。希望大家能够帮助她。详细问题描述及疑问：期待您的答案，真心佩服你,谢谢 ！
free pascal问题
时间： 发布人：uuurrr
谷歌uuurrr用户在提交了关于“我的战争free pascal问题”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2024-12-17T15:54:18。希望大家能够帮助她。
希望以下的回答，能够帮助你。用户名：gedgmybci
际延peconsole}//设置程序为非图形界面，TURBOPASCAL等无需这一行
var
n,m,i,j,k:integer;
begin
re助毛于况配端染志迫务adln(n,m);
j:=0;
fori孩望静:=1tondoj:=j+i-1;
fori:=问答ntomdo
begin
write(i,'^3=');
k:=0;
whilek<ido
begin
ifk<>0thenwrite('+');
write(j*2+1);
k:=k+1;
j:=j+1;
end;
writeln('=',i*i*i);
end;
end.
第1个回答
程序在DELPh**I7下运行成功，编译和运行的示例如下：
程序所有
var
n,m,i,j,k:
begin
re
j:=0;
fori
fori:=
begin
writ
k:=0;
whilek<ido
begin
ifk<>0thenwr
write(j*2+1);
k:=k+1;
j:=j+1;
end;
writeln('=',i*i*i);
end;
end.