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.