Question

ребят пж помогите сделать звезду в паскале

Answer 1

Відповідь:program DrawStar;

uses crt;

var

 i, j: integer;

begin

 clrscr;

 

 for i := 1 to 5 do

 begin

   for j := 1 to 5 - i do

     write(' ');

   

   for j := 1 to 2 * i - 1 do

     write('*');

   

   writeln;

 end;

 

 readln;

end.

Пояснення: