Ответы на вопрос:
Var a: array[1..3,1..3] of integer; t: array[0..2] of boolean; k: array[0..2] of integer; i,j: integer; res: boolean; begin for i : = 1 to 3 do for j : = 1 to 3 do read(a[i,j]); for i : = 0 to 2 do begin k[i] : = 0; t[i] : = false; end; for i : = 1 to 3 do for j : = 1 to 3 do k[a[i,j]] : = k[a[i,j]] + 1; for i : = 1 to 3 do begin if (a[i,1] = a[i,2]) and (a[i,2] = a[i,3]) then t[a[i,1]] : = true; if (a[1,i] = a[2,i]) and (a[2,i] = a[3,i]) then t[a[1,i]] : = true; end; if (a[1,1] = a[2,2]) and (a[2,2] = a[3,3]) then t[a[2,2]] : = true; if (a[3,1] = a[2,2]) and (a[2,2] = a[1,3]) then t[a[2,2]] : = true; res : = true; if (k[1] - k[2] > 1) or (k[1] - k[2] < 0) then res : = false; if t[1] and ( t[2] or (k[1] = k[2]) ) then res : = false; if res then writeln('yes') else writeln('no') end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
irinohkaberesn09.05.2022 14:21
-
помогиииитееее223314.03.2021 13:42
-
viki2905127.04.2021 22:12
-
ashotik00714.04.2021 17:09
-
незнайка116219.05.2021 11:14
-
maruya320.03.2021 15:09
-
aav719.03.2022 12:44
-
Mary24010601.03.2022 23:01
-
zarinkakoshzhan16.03.2022 03:54
-
stetcenko8712.07.2020 14:11
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.