Đăng nhập để hỏi chi tiết
0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
uses crt;
var i,j,k,n:byte;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
for k:=1 to 3 do
begin
for j:=1 to n do
if (i mod 2) = (j mod 2) then write('WWW')
else write('BBB');
writeln;
end;
end;
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin