Рифма

@AtomJ2 · Регистрация: 11.05.2020

Студворк — интернет-сервис помощи студентам

Дан текст (набор слов). Найдите в нем два слова с наилучшей рифмой. Наилучшей будем считать рифму, когда у пары слов совпадает наибольшее число букв с конца.
С клавиатуры вводится набор слов. Необходимо найти в нем два слова с наилучшей рифмой. Наилучшей считается рифма, когда у пары слов совпадает наибольшее число букв с конца.

@canadamoscow · 05.04.2021, 13:55

Pascal
1
2
3
4
5
6
7
##
//var a := 'красный белый большой атласный прекрасный телесный местный'.ToWords;
var a := ReadlnString('Введите слова через пробел:').ToWords;
if a.Count < 2 then exit;
a.Cartesian(2).Where(t-> t.First <> t.Last).Select(t-> 
(t, t.First.Reverse.Zip(t.Last.Reverse, (q,w) -> q=w ? 1 : 0).TakeWhile(g->g=1).Count))
.MaxBy(t->t.Item2).Item1.Println

@AtomJ2 · 11.04.2021, 14:23 **[ТС]**

Возможно Вы не должны отвечать на этот вопрос, но почему возникает такая ошибка:
Program1.pas(4) : Обобщённая функция Cartesian не может быть вызвана с данным набором фактических параметров

@canadamoscow · 11.04.2021, 16:21

Обнови IDE PascalABC.Net скачать

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@AtomJ2 5 / 3 / 2 Регистрация: 11.05.2020 Сообщений: 47

	Рифма 05.04.2021, 11:35. Показов 1407. Ответов 3 Метки нет (Все метки) Дан текст (набор слов). Найдите в нем два слова с наилучшей рифмой. Наилучшей будем считать рифму, когда у пары слов совпадает наибольшее число букв с конца. С клавиатуры вводится набор слов. Необходимо найти в нем два слова с наилучшей рифмой. Наилучшей считается рифма, когда у пары слов совпадает наибольшее число букв с конца. 0

@AtomJ2 5 / 3 / 2 Регистрация: 11.05.2020 Сообщений: 47
	11.04.2021, 14:23 [ТС]
	Возможно Вы не должны отвечать на этот вопрос, но почему возникает такая ошибка: Program1.pas(4) : Обобщённая функция Cartesian не может быть вызвана с данным набором фактических параметров 0

@canadamoscow 1179 / 430 / 194 Регистрация: 23.03.2020 Сообщений: 1,021 Записей в блоге: 1
	11.04.2021, 16:21
	Обнови IDE PascalABC.Net скачать 1

Рифма

Решение