Задача A Доска Задается N. Нужно вывести цвет каждой клетки доски N x N,
10-11 класс
|
если известно, что они покрашены в шахматном порядке и клетка (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.
Другие вопросы из категории
1 написать программу которая вводит с клавиатуры одномерный массив из 10 целых двузначных чисел выводит количество элементов > 28 и их среднее арифметическое
2 написать программу которая выводит с клавиатуры одномерный массив из 6 целых чисел и выводит нечётные
3 написать программу ввода с клавиатуры последовательность целых чисел вычисляющую кол-во и сумму положительно ввёдных чисел
Читайте также
доски (а1,b1) и (a2,b2). Значения а1,b1 и a2,b2 вводятся с клавиатуры.
Требовалось написать программу, которая определяет, имеется ли среди введенных с клавиатуры положительных целых чисел а и Ь хотя бы одно четное. Была написана следующая программа:
• var a, b: integer;
• begin
• readln(a, b);
• a := a mod 2;
• if a > 0 then b := b mod 2;
• if b > 0 then
• writeln ('четных чисел нет')
• else
• writeln ('четное число есть');
• end.
Доработайте эту программу таким образом, чтобы задача решалась верно.
№2
С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях. Если введено не трёхзначное число, должно быть выведено сообщение «Неверное число».