作业帮 > 综合 > 作业

pascal输入一列图形(字母金字塔) a a b a b c …… a b c d ……y z

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/25 21:12:30
pascal输入一列图形(字母金字塔) a a b a b c …… a b c d ……y z
var i,j:integer;
begin
for i:=1 to 26 do
begin
for j:=1 to 26-i do
write(' ');
for j:=1 to 2*i-1 do
if j mod 20 then write(chr(64+(j+1) div 2)) else write(' ');
writeln;
end;
end.