Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 23.11.2015, 22:37   #1
DinaMadina
Новичок
Джуниор
 
Регистрация: 23.11.2015
Сообщений: 1
По умолчанию последовательность символов,состоящая из слов

Дана последовательность символов,состоящая из слов.Если существует буква,встречающаяся во всех словах то вывести на экран сообщение "да",иначе-сообщение "нет".
DinaMadina вне форума Ответить с цитированием
Старый 23.11.2015, 22:53   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

Ну могу предложить делать так:
1) Разворот строки на массив слов: http://www.programmersforum.ru/showt...369#post398369
2) В циклах проверять каждую букву по этому массиву:
Код:
var i:integer; c:char; b:boolean;
...
for c:='a' to 'z' do begin
 b:=true;
 for i:=1 to Кол-во слов do 
   if pos(c,слово[i])=0 then begin b:=false;break;end;
 if b then writeln('Буква ',c,' есть в каждом слове');
end;
Где слово[i] - элемент массива слов.

Идея годится?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
адана строка символов, состоящая из слов. Вывести все слова строки в алфавитном порядке. 9066788 Паскаль, Turbo Pascal, PascalABC.NET 1 19.01.2014 17:00
Дана последовательность символов, состоящая из слов. Вывести на экран слова, в которых все символы повторяющиеся (строки на C) Роман64 Помощь студентам 0 22.12.2013 15:00
задача на СИ. Строки. Дана последовательность символов, состоящая из слов одинаковой длины. Найти слова, являющиеся "особой парой" Роман64 Помощь студентам 2 18.12.2013 16:06
Паскаль.Дана последовательность символов, состоящая из слов. икше Помощь студентам 2 03.12.2012 19:34
. Задана строка символов. состоящая из отдельных слов, разделенных пробелами. Преобразовать ее, оставив в ней только первые два Proskurina Паскаль, Turbo Pascal, PascalABC.NET 1 29.05.2012 19:35


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS