Câu a:
Program NN;
Uses crt;
Var i,j: longint;
Begin
Clrscr;
For i:=1 to 5 do
Begin
For j:=1 to i do Write('*');
Writeln;
End;
Readln
End.
Câu b:
Program NN;
Uses crt;
Var i,j: longint;
Begin
Clrscr;
For i:=5 downto 1 do
Begin
For j:=1 to i do Write('*');
Writeln;
End;
Readln
End.