作业帮pascal输入下列菱形,行数n由键盘输入,下图中n=4.* *** *** ** *** *** *第一
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/30 00:48:53
pascal输入下列菱形,行数n由键盘输入,下图中n=4.* *** *** ** *** *** *第一
pascal输入下列菱形,行数n由键盘输入,下图中n=4.
*
***
***
*
*
***
***
*
第一个*应在***正中间.
pascal输入下列菱形,行数n由键盘输入,下图中n=4.* *** *** ** *** *** *第一
Program diamond;
Var i,j,k,n:integer;
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 write('*');
writeln;
end;
for i:=n-1 downto 1 do
begin
for j:=1 to n-i do write(' ');
for k:=2*i-1 downto 1 do write('*');
writeln;
end;
End.