Pascal
Modified: Wednesday, 22-12-2021 07:00 AM
Vẽ tam giác như hình sau:
O
* O *
O * O * O
* O * O * O *
var i,j:byte;
n:byte;
begin
readln(n);
For i:=1 to n do
begin
For j:=1 to (2*i-1) do
If (i+j) mod 2=0 then write('O') else write('*');
writeln;
end;
readln;
end.