Задача A Доска Задается N. Нужно вывести цвет каждой клетки доски N x N, если известно, что они покрашены в шахматном порядке и клетка (1, 1) - белая. Формат входных данных Первая строка входного файла содержит единственное цел...
Задача A Доска Задается N. Нужно вывести цвет каждой клетки доски N x N, если известно, что они покрашены в шахматном порядке и клетка (1, 1) - белая. Формат входных данных Первая строка входного файла содержит единственное целое N (1 <= N <= 10). Формат выходных данных Выведите N строк в каждой N символов соответствующий цвету этой ячейки: ‘W’ – если белая и ‘B’ – если черная.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы