Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
арина22051
07.03.2021 20:55 •
Информатика
Скласти блок-схему і програмний код алгоритму формування такої матриці: 111111 000000 111111 000000 111111 000000 будь-
Показать ответ
Ответ:
LORDI9999
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 оценок)
Популярные вопросы: Информатика
ВеселыйР0джер
14.10.2020 12:05
Наиболее совершенный исполнитель среди автоматизированных устройств? а) компьютер б) микроволновая печь в) спутниковая система навигации г) робот...
30.04.2020 13:09
Можете исправить эту ошыбку из юнити с сам не могу разобраться....
Дерюгин
25.02.2022 05:11
Подсчитать сумму двузначных чисел, сумма цифр которых не превышает 10. program pr10; var n, a, b, k: integer; begin k: =0; for n: =10 to 99 do begin a: = n div 10; b: =n mod...
PomogyBratan
25.02.2022 05:11
Запиши в тетради три примера имен файлов, которые могут быть найдены по такому шаблону имен файлов для поиска: *be? .docx (запиши в зошиті три приклали імен файлів, які можуть...
lenasimona55
25.02.2022 05:11
Составьте программу, которая выводит на экран таблицу перевода n, n+1, n+ m дней количество недель....
198912
07.02.2020 03:53
Дано вещественное число r и массив размера n. найти элемент массива который наиболее близок к данному числу...
аннушка2935
10.01.2022 16:11
Составьте программы для следующей . даны длины ребер a, b, c прямоугольного параллелепипеда. найти его объем v = abc и площадь поверхности s = 2(ab + bc + ac)....
FenrisYT
10.02.2022 09:03
Вpascal abc найти минимальные и максимальный элемент n и все стоящие между ними заменить нулём в промежутке (10; 50)...
arusy
10.02.2022 09:03
Сделать в pascal найти минимальный и максимальный элементы массива и все элементы расположенные между ними заменить на промежутке(10; 50)...
zyla24
10.02.2022 09:03
Отримати назву складової частини компютера із букв: р м к с а т н е о ю...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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