Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
setkrokol
28.01.2021 09:40 •
Информатика
Скласти блок-схему і програмний код алгоритму формування такої матриці: 111111 000000 111111 000000 111111 000000 будь-
Ответ:
0Alis11
01.10.2020 22:52
Const
n = 6;
var
i, j: integer;
a: array[1..n, 1..n] of integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
if i mod 2=0 then a[i, j] := 0
else a[i, j] := 1;
write(a[i, j])
end;
writeln;
end;
end.
Тестовое решение:
111111
000000
111111
000000
111111
000000
0,0
(0 оценок)
Популярные вопросы: Информатика
Анц
14.12.2022 19:48
Опиши действия робота, который выполняет эту программу: [ 4 ] 1.2.3.4.56....
Angelim
17.01.2023 08:48
Всем привет. Родные по братский. Щясь карантин же,онлайн. Давайте поддержем друг-друга...
aijamalkamalova
04.03.2021 05:09
3. ,/,*,;,?,\.- можно ли использовать эти символы на имя переменной? Объясните почему?...
karkarich68
25.09.2021 22:20
Какую функцию выполняет запись x%=2...
Одуванчик11111111
06.02.2023 06:29
Соотнесите с правильным вариантом *...
Torquis
03.06.2022 02:54
Укажите устройство, подходящее под следующее описание: Устройство компьютера, предназначенное для временного хранения информации и из которого удаляются все данные при выключении компьютера...
ladyviktoria
21.04.2022 20:48
1. для передачи сигналов на флоте используют специальные флажки, вывешиваемые в одну линию. какое количество сигналов может передать корабль при линейки из трех сигнальных флагов,...
matvey9874
21.04.2022 20:48
Запиши число 14552 в развёрнутом виде...
Enotiha217
21.04.2022 20:48
1.сколько мбайт информации содержит сообщение объемом 2 целых 23 байт? 2. в одном из вариантов кодировки unicоde на каждый символ отводится четыре байта. определите информационный...
VLaDiSLaVVoRoNKoV
05.08.2021 06:18
План айвенго з 1 по 12 розділ в кожному розділі не менше 15 пунктів. можна з інтернету картинкою або текстовим іть пліз. ів...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
n = 6;
var
i, j: integer;
a: array[1..n, 1..n] of integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
if i mod 2=0 then a[i, j] := 0
else a[i, j] := 1;
write(a[i, j])
end;
writeln;
end;
end.
Тестовое решение:
111111
000000
111111
000000
111111
000000