Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Catalog · How the catalog works
Anything · Lazarus or Delphi
Random projectRandom project

Dictionary-search

View on GitHub

Member rating

No ratings yet.

Sign in to rate this project.

README

{28. Задано некоторое слово. Требуется составить из букв этого слова максимальное количество других слов, которые имеются в словаре. Каждая буква заданного слова может использоваться только один раз. Например, если в заданном слове имеется 2 буквы 'а', то слова словаря, в которых больше двух букв 'а', не подходят. Каждое найденное слово из словаря оценивается количеством очков, равным длине слова. Результат игры определяется суммой очков. Первая строка входного файла содержит заданное слово. Далее находятся слова словаря. Все слова состоят из строчных (маленьких) латинских букв. Количество слов словаря не превышает 100. В каждом слове не более 20 букв. Длина заданного слова также не больше 20 символов. В первой строке выводится количество набранных очков. Начиная со второй строки, следуют найденные слова. Они должны выводиться по одному в строке по убыванию количества букв. Слова с одинаковым количеством букв должны следовать по алфавиту (9). Пример Ввод Вывод bariton 29 tara brant triton tiran roba brat tonna brit brat nota nota roba tiran rab brant bob rab brit}