Pascal

Modified: Wednesday, 22-12-2021 07:00 AM

Vẽ hình tam giác rỗng


var n,m,i,j:byte;
begin
   readln(n);
   m:=n-1;
   for i:=1 to m do       // Ve dau sao thu nhat 
   write(#32);
   writeln('*');
   for i:=2 to (n-1) do   // Ve nhung dau sao o giua
   begin
       for j:=1 to m-1 do
       write(#32);
       write('*');
       for j:=1 to (i*2-3) do
       write(#32);
       write('*');
       writeln;
       dec(m);
   end;
   for j:=1 to n do write('*',#32); // Ve cac dau sao o canh day
   readln;
end.