===== PascalABC.NET =====
begin
loop 3 do
for var i := 8 downto 1 do
Println(i * ' ' + (2 * (9 - i) - 1) * '*');
Println(17 * '*')
end;
loop 6 do
Println(8 * ' ' + '*')
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== PascalABC.NET =====
begin
loop 3 do
begin
for var i := 8 downto 1 do
Println(i * ' ' + (2 * (9 - i) - 1) * '*');
Println(17 * '*')
end;
loop 6 do
Println(8 * ' ' + '*')
end.