Программист 3-го разряда Пётр Иванович пишет Интернет-Обозреватель для принципиально новой Российской Операционной Системы (сокращённо РосОС) в рамках национальной программы «Цифровая экономика». Ну и, конечно же, в национальной операционной системе пользователи должны видеть только национальные интернет-ресурсы! Министры НацМинСвязи считают, что любая строка, которая начинается с «http://» или «https://» и заканчивается на «.ru», является национальным интернет-ресурсом. Пётр Иванович хоть и программист, но всё-таки только 3-го разряда, поэтому вы должны ему научиться определять национальные-интернет ресурсы!
Формат ввода
Вводится единственная непустая строка — проверяемый адрес. Строка состоит из строчных латинских букв и символов «:», «/», «.». Длина строки не превосходит 127 символов.
Формат вывода
Выведите «yes», если адрес является национальным интернет-ресурсом, и «no» в противном случае.
176
446
Ответы на вопрос:
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
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
sofitit041018.02.2021 16:42
-
Rushana1404.08.2020 14:53
-
seropyan200626.06.2023 07:21
-
adelinathebest14.02.2020 08:33
-
DeaDPooL79729.12.2022 05:46
-
Никас11108.05.2021 08:42
-
CherryGirll25.04.2021 03:20
-
meonder06.09.2022 22:31
-
Sozedatel10.08.2022 21:02
-
Акшувел31.03.2023 23:42
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.