Задача AДоска

Задается N. Нужно вывести цвет каждой клетки доски N x N, если известно, что они покрашены в шахматном порядке и клетка (1, 1) - белая.

Формат входных данных

Первая строка входного файла содержит единственное целое N (1 < = N < = 10).

Формат выходных данных

Выведите N строк в каждой N символов соответствующий цвету этой ячейки: 'W' - если белая и 'B' - если черная.

Question

Информатика

Боба

13 января, 00:08

Задача AДоска

Задается N. Нужно вывести цвет каждой клетки доски N x N, если известно, что они покрашены в шахматном порядке и клетка (1, 1) - белая.

Формат входных данных

Первая строка входного файла содержит единственное целое N (1 < = N < = 10).

Формат выходных данных

Выведите N строк в каждой N символов соответствующий цвету этой ячейки: 'W' - если белая и 'B' - если черная.

+5

Ответы (1)

Знаете ответ?

Венура · Answer 1

Var

n, i, j: integer;

begin

readln (n) ;

for i : = 1 to n do

begin

for j : = 1 to n do

if ((j + i) mod 2 = 0) then

write ('W':2)

else

write ('B':2) ;

writeln;

end;

end.