Задача AДоска Задается N. Нужно вывести цвет каждой клетки доски N x N, если известно,...

Question

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

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

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

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

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

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

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.