Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
aijamalkamalova
30.04.2023 18:37 •
Информатика
Вдвумерном массиве вывести шахматную доску, известно что первая клетка - белая. пользователь может ввести размер доски, это число n. w-белая, b-черная. pascal. например n=3: wbw bwb wbw , , важно.
Показать ответ
Ответ:
kostenkoelizav
07.10.2020 04:03
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=MatrGen(n,n,(i,j)->(i+j).IsEven?'W':'B');
a.Println(1)
end.
Пример
n= 8
WBWBWBWB
BWBWBWBW
WBWBWBWB
BWBWBWBW
WBWBWBWB
BWBWBWBW
WBWBWBWB
BWBWBWBW
0,0
(0 оценок)
Популярные вопросы: Информатика
Dyakgod
17.04.2020 21:32
ввести три вещественных числа а,b,c. Если какое либо число меньше суммы двух другтх чисел , то его распечатать. Таким образом обработать все числа...
Bog1209
27.06.2022 04:19
Информатика көмектесіңіздерші...
Аноним9111
22.03.2022 21:53
Кім көмектеседі? информатика...
GhostS1037
23.04.2023 04:14
Через питона. Вводится число n. Посчитайте сумму 1^1 + 2^2 + 3^3 +...n^n...
kuklas228
22.06.2020 02:41
Вычислите сколько байтов занимает на cd одна минута стереозаписи(частота дискретизации 44000 разрядность 16 битов) какова максимальная продолжительность стереозаписи на...
ПростоФедя
04.05.2021 09:30
От вас требуется идея и ее реализации в условиях, которые указаны на картинке...
arnalismailov
04.04.2021 01:23
Укажи адреса ячеек, которые используют формат «Время». Верных ответов: 2А2А3В3С3D2...
ghosthog
10.11.2021 06:51
Нужно написать на python. Дано целые числа n и k. Обнулите в числе n его последние k бит и выведите результат. Рекомендуется сделать эту задачу без использования циклов....
NonaANDnana
05.11.2020 22:19
построить таблицу истинности для логических выражений...
тима421
14.05.2021 00:36
Среди четырехзначных чисел выбрать те, у которых цифры образуют возрастающую последовательность (например: 1389, 4678) последняя тема цикл for...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=MatrGen(n,n,(i,j)->(i+j).IsEven?'W':'B');
a.Println(1)
end.
Пример
n= 8
WBWBWBWB
BWBWBWBW
WBWBWBWB
BWBWBWBW
WBWBWBWB
BWBWBWBW
WBWBWBWB
BWBWBWBW