Информатика паскаль. задана квадpатная таблица а (n, n) , элементами котоpого являются нули и единицы. подсчитайте в ней: 1) количество стpок, в котоpых есть тpи нуля, pасположенных pядом; 2) количество столбцов, в котоpых нули и единицы чеpедуются; 3) количество единичных столбцов и количество нулевых стpок. хотя-бы одну из программ, выручайте!

273

368

Посмотреть ответы 2

Ответы на вопрос:

samprosto02

Информатика

4,8(87 оценок)

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin var n: =readinteger('количество строк/столбцов в таблице: '); var a: =matrrandom(n,n,0,1); a.println(2); writeln(2*a.colcount*'-'); // 1 var k: =0; for var i: =0 to a.rowcount-1 do for var j: =0 to a.colcount-3 do if (a[i,j]=0) and (a[i,j+1]=0) and (a[i,j+2]=0) then begin k+=1; break end; writeln('1: ',k); // 2 k: =0; for var j: =0 to a.colcount-1 do if (a[0,j]=0) and (a[1,j]=1) then begin var (i,flag): =(2,true); while i< =a.rowcount-2 do begin if not ((a[i,j]=0) and (a[i+1,j]=1)) then begin flag: =false; break end else i+=2 end; if flag then k+=1 end else if (a[0,j]=1) and (a[1,j]=0) then begin var (i,flag): =(2,true); while i< =a.rowcount-2 do begin if not ((a[i,j]=1) and (a[i+1,j]=0)) then begin flag: =false; break end else i+=2 end; if flag then k+=1 end; writeln('2: ',k); // 3 var r0: =a.rows.where(row-> row.all(t-> t=; var c1: =a.cols.where(col-> col.all(t-> t=; writeln('3: нулевых строк ',r0,', единичных колонок ',c1) end. пример количество строк/столбцов в таблице: 4 1 1 0 1 0 0 0 1 1 1 1 1 0 1 1 1 1: 1 2: 1 3: нулевых строк 0, единичных колонок 1

shybite

Информатика

4,6(26 оценок)

в). продолжать набор текста, не обращая внимания на конец строки, — на новую строку курсор перейдёт автоматически

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.