作业帮 > 综合 > 作业

pascal 编程输入下列图案

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/12 06:03:36
pascal 编程输入下列图案
var n,i,j,k:integer;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to 3 do
begin
write('':n-i+1);
for k:=1 to i+i-1 do
write('*');
if j