路人求助!!急急急
pascal吧
全部回复
仅看楼主
level 2
lz
的学校老师布置了道题 大概描述下 就是输出
0
123
45678
9012345
……
这样的数塔
但是lz的程序
var i,j,k,n,js:longint;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do write(' ');
for k:=-1 to 2*i-1 do
begin
if js<=9 then
begin
js:=js+1;write(js);
end
else
js:=0;write(js);
end;
writeln;
end;
readln;
end.
输出是这样的
2015年04月19日 03点04分 1
level 2
怎么改?
2015年04月19日 03点04分 3
level 2
没人觉得lz的学校是个好学校么[不高兴]
2015年04月19日 03点04分 4
不明觉厉
2015年04月19日 06点04分
1