Question

Нарисуйте елочку из звездочек длины 30 заполненнуя внутри на языке pascal.

Answer 1

===== 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.