12. Напишите программу, выводящую на экран шахматной доски, где чёрные клетки изображаются звёздочками (*), а белые — пробелами. Рекомендуемыми размерами для шахматной доски являются 8x8.

Решение задачи 12: program Chessboard; var i, j: integer; begin for i := 1 to 8 do begin for j := 1 to 8 do begin if (i + j) mod 2 = 0 then write('*') else write(' '); end; writeln; end; end. Пояснение: 1. `program Chessboard;` - Объявляем программу с именем Chessboard. 2. `var i, j: integer;` - Объявляем переменные i и j типа integer для использования во вложенных циклах. 3. `for i := 1 to 8 do` - Внешний цикл, который проходит по строкам шахматной доски. 4. `for j := 1 to 8 do` - Внутренний цикл, который проходит по столбцам шахматной доски. 5. `if (i + j) mod 2 = 0 then` - Проверяем, является ли сумма индексов строки и столбца четным числом. Если да, то печатаем звёздочку (чёрная клетка). 6. `write('*')` - Выводим звёздочку на экран. 7. `else write(' ')` - Если сумма индексов нечетная, то печатаем пробел (белая клетка). 8. `writeln;` - После каждой строки переходим на новую строку. Результат: * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *