Есть ответ 👍

Программист 3-го разряда Пётр Иванович пишет Интернет-Обозреватель для принципиально новой Российской Операционной Системы (сокращённо РосОС) в рамках национальной программы «Цифровая экономика». Ну и, конечно же, в национальной операционной системе пользователи должны видеть только национальные интернет-ресурсы! Министры НацМинСвязи считают, что любая строка, которая начинается с «http://» или «https://» и заканчивается на «.ru», является национальным интернет-ресурсом. Пётр Иванович хоть и программист, но всё-таки только 3-го разряда, поэтому вы должны ему научиться определять национальные-интернет ресурсы!

Формат ввода
Вводится единственная непустая строка — проверяемый адрес. Строка состоит из строчных латинских букв и символов «:», «/», «.». Длина строки не превосходит 127 символов.

Формат вывода
Выведите «yes», если адрес является национальным интернет-ресурсом, и «no» в противном случае.

176
446
Посмотреть ответы 1

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


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

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

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

Caktus Image

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

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

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

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

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

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

Подпишись на наш телеграмм канал

GTP TOP NEWS