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.