В игре бильярд ударили шар из угла А прямоугольного бильярдного стола под градусом 45 градусов
189
236
Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin // структура строки // день время канал вид название(возможно, многословное) // цель: удалив "канал" (третье слово), найти строки var ms: =readalllines('tv.txt'); ms.printlines; // чтобы было понятно содержимое файла writeln; var d: =ms.groupby(s-> (s.towords[: 2]+s.towords[3: ]).joinintostring(' ')) .select(t-> (t.key,t.(t-> t[1]> 1).select(t-> t[0]); if d.count=0 then writeln('искомые передачи отсутствуют') else foreach var s in d do begin var key: =s.towords.take(2).joinintostring; ms.where(t-> t.towords.take(2).joinintostring=key).printlines; writeln end end. пример понедельник 09: 00 первый новости новости на первом суббота 19: 40 первый фильм кин-дза-дза! среда первый 07: 15 нтв мультфильм трое из простоквашино четверг 19: 40 первый фильм кин-дза-дза! вторник 09: 00 первый новости новости на первом понедельник 12: 00 первый новости новости на первом пятница 16: 40 россия-1 мультфильм трое из простоквашино суббота 19: 40 россия-1 фильм кин-дза-дза! среда 09: 00 первый новости новости на первом четверг 09: 00 первый новости новости на первом суббота 19: 40 нтв фильм кин-дза-дза! суббота 19: 40 первый фильм кин-дза-дза! суббота 19: 40 россия-1 фильм кин-дза-дза! суббота 19: 40 нтв фильм кин-дза-дза!
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
karinakarim11.05.2022 08:52
-
fwooper02.06.2022 04:47
-
vlasenkoa1631114.05.2021 20:53
-
Аружан20034522.03.2022 20:52
-
kitten090828.05.2020 02:10
-
Mildx15.07.2022 05:51
-
Vonder23914204.05.2021 10:11
-
mixer23928.01.2020 22:39
-
хорошист37806.09.2021 05:03
-
Nastya16200513.07.2020 22:45
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.