VE TAM GIAC=PASCAL

program ve_tam_giac_can_dac;
uses crt;
var h,cot,hang:word;
i,j:word;
Begin
clrscr;
write('Nhap chieu cao tam giac:');
readln(h);
hang:=2;
cot:=30;
for i:=1 to h do
Begin
gotoxy(cot,hang);
for j:=1 to 2*i-1 do write('*');
cot:=cot-1;
hang:=hang+1;
End;
writeln;
Write('Nhan phim bat ky de ket thuc:'); readln;
End.

GOOD LUCK FOR YOU!

Có thèn nào test thử cái tam giác này chưa bay

Cho mình có ý kiến thế này!các pro có công góp bài lên 4rum là rất đáng quý nhưng ở đây có 1 số bạn xem mà vẫn ko hiều bài. Vậy mong muốn khi các bạn post lên thì nên có thêm 1 số lời giải thích bài cho các bạn trong lớp cùng hiểu và đóng góp!
Góp ý chân thành!