viết chương trình pascal hiện một hình tam giác vuông bằng dấu * ( có sử dụng câu lệnh lặp )

2 câu trả lời

program ct;
uses crt;
var i,i2:byte;
begin
    clrscr;
    for i:=1 to 6 do 
        begin
        for i2:=1 to i do write('*');
        writeln;
        end;
    readln;
end.

______________________
#Duahauvn

uses crt;
var i, j : byte;
begin
clrscr;
for i := 10 downto 2 do
begin
for j := 1 to i - 1 do write('*');
writeln;
end;
readln
end.