Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 21.06.2016
Сообщений: 2

Выяснить, верно ли, что каждое слово-палиндром в строке имеет нечетную длину

21.06.2016, 16:06. Показов 1915. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
дана строка символов , груп символов разделенные пробелом (одним или несколькими )и не содержащие пробелолов внутри себя , будем называть словами . слова читающиеся с права налево и лево на право будем называть палиндромами выяснить верно ли что каждое слово палиндром имеет нечетную длину
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
21.06.2016, 16:06
Ответы с готовыми решениями:

Проверить, верно ли, что в данной строке всякое несимметричное слово имеет чётную длину
Дана строка, состоящая из слов, разделенных пробелами (одним или несколькими). Проверить, верно ли, что в данной строке всякое...

Строки: верно ли, что в заданной строке любое несимметричное слово имеет четную длину
Дано символьный рядок.Проверить, чи верно что в заданной строке любое несеметричне слово имеет парную длину.

Проверить, верно ли, что в этой строке любое несимметричное слово имеет парную длину
Здравствуйте, есть задание Дана символьная строка. Слово - последовательность символов между пробелами, не удерживая пробелы внутри...

4
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
22.06.2016, 07:11
Pascal
1
2
3
4
5
6
7
8
begin
  var s := ReadLnString('Введите строку символов:');
  var res := True;
  foreach var w : String in s.ToWords(' ') do
    if w = ReverseString(w) then
      res := res and odd(w.Length);
  WriteLn('Каждое слово-палиндром имеет нечётную длину = ', res ? 'да' : 'нет');
end.
1
24.06.2016, 01:29

Не по теме:

Цитата Сообщение от JuriiMW Посмотреть сообщение
res ? 'да' : 'нет'
Я не знал, что тут так можно)

0
 Аватар для shilko2013
257 / 234 / 185
Регистрация: 02.04.2016
Сообщений: 898
24.06.2016, 14:12
в Net много элементов из c++
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33395 / 21505 / 8236
Регистрация: 22.10.2011
Сообщений: 36,902
Записей в блоге: 12
25.06.2016, 14:34
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
  foreach var w : String in s.ToWords(' ') do
    if w = ReverseString(w) then
      res := res and odd(w.Length);
я бы заменил на
Pascal
1
2
  foreach var w : String in s.ToWords(' ') do
    res := res and ((w <> ReverseString(w)) or odd(w.Length));
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
25.06.2016, 14:34
Помогаю со студенческими работами здесь

Проверить, верно ли, что k-ое слово имеет четную длину?
Помогите, пожалуйста, найти ошибку в программе. Само задание звучит так: Дана символьная строка и целое число k. Слово -...

Определить, верно ли, что самое длинное слово предложения имеет длину больше 10 символов
Дано предложение .Верно ли что его самое длинное слово имеет больше 10 символов?

Если слово имеет нечётную длину, удалить в нём среднюю букву
Сформировать по строке a$ новую строку по правилу: если слово имеет нечётную длину, удалить в нём среднюю букву. Ps. Заранее благодарю ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка SDL3 из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru