pascal初学，求解答
答案:2 悬赏:20 手机版
解决时间 2021-11-30 13:10
- 提问者网友：疯孩纸
- 2021-11-29 19:08
pascal初学，求解答
最佳答案
- 五星知识达人网友：青灯有味
- 2021-11-29 19:24
var
n,i:integer;
begin
readln(n);
for i:=1 to n do writeln(i:4,(n-i+1):4);
readln;
end.追问
可以告诉我怎麼做吗？pascal追答var
n,i,j:integer;
begin
readln(n);
for i:=1 to n do begin
for j:=1 to i do write(j:0);
writeln;
end;
end.追问太感谢你了～我待会试一下
n,i:integer;
begin
readln(n);
for i:=1 to n do writeln(i:4,(n-i+1):4);
readln;
end.追问
可以告诉我怎麼做吗？pascal追答var
n,i,j:integer;
begin
readln(n);
for i:=1 to n do begin
for j:=1 to i do write(j:0);
writeln;
end;
end.追问太感谢你了～我待会试一下
全部回答
- 1楼网友：一把行者刀
- 2021-11-29 20:37
var i,n:integer;
begin
readln(n);
for i:=1 to n do
writeln(i:6,n+1-i:6);
end.
begin
readln(n);
for i:=1 to n do
writeln(i:6,n+1-i:6);
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯