1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| NightPaladin |
Сообщение
#1
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 67 Пол: Мужской Репутация: 0 |
Вот - очень интересует решение даной задачи.
Буквы назовем “соседями”, если они входят в какую-либо пятерку подряд идущих букв русского алфавита, например ”КЛМНО”. Назовем слово «дружественным», если слово составлено из “соседей” (буквы могут входить в слово много раз, некоторые могут отсутствовать). Например, ГАВ, БАБА - «дружественные». Дана строка, в которой слова разделены пробелами, вывести все дружественные слова. Пример: Входные данные: Выходные данные: РАЗ ДВА ТРИ ЧЕТЫРЕ ПЯТЬ ДВА АБВГД ГДЕ ЕЖ АБВГД ГДЕ ЕЖ -------------------- На горе лежит дискета
У неё испорчен boot Через дырочку в конверте Её вирусы грызут |
![]() ![]() |
| NightPaladin |
Сообщение
#2
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 67 Пол: Мужской Репутация: 0 |
Заработало :no: , от всей души говорю VOLVO - ТЫ ЛУЧШИЙ.
Столько форумов обойти, и только в одном нашлось два человеа ответевших по существу, я ведь уж думал, что через форум ответа не получу. Ещё раз всем и в частности volvo спасибо. Буду обязательно посещать этот форум. Будут также, по мере своих (к сожаление, но надеюсь только пока - средних знагий) помагать людям. -------------------- На горе лежит дискета
У неё испорчен boot Через дырочку в конверте Её вирусы грызут |
NightPaladin Работа со строками 27.11.2004 20:34
volvo NightPaladin
Можно предложить следующее: напиши ф… 27.11.2004 20:59
NightPaladin Спосибо большое сейчас попробую написать, а то у м… 28.11.2004 0:17
NightPaladin volvo или просто добрые люди посмотрите чё не так … 28.11.2004 20:01
volvo Попробуй вот так:
Uses Crt;
Type
TWords =… 28.11.2004 20:33![]() ![]() |
|
Текстовая версия | 5.11.2025 9:31 |