Вывести все согласные, которых нет ни в одном слове предложения

@hardiking · Регистрация: 07.10.2015

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

Помогите пожалуйста а то у меня не получается.
Задание: Дано предложение. Вывести все согласные, которых нет ни в одном слове.

Вот есть подобная задача, как же мне сделать так чтоб она производила такие действия, но со строкой введённой с клавиатуры?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
//множество всех согласных букв русского алфавита
const sgl=['Б','б','В','в','Г','г','Д','д','Ж','ж','З','з','Й','й','К','к',
           'Л','л','М','м','П','п','Р','р','С','с','Т','т','Ф','ф','Х','х',
           'Ц','ц','Ч','ч','Ш','ш','Щ','щ'];
var f:text;
    c:char;
    m:set of char;
begin
assign(f,'text.txt');
reset(f);
m:=[];//множество согласных, которые ксть в файле
while not eof(f) do
read(f,c);
if c in sgl then m:=m+[c];
close(f);
writeln('Согласные буквы, которых нет ни в одном слове:');
m:=sgl-m;//вычитаем из полного множества, те что есть
if m=[] then write('Таких букв нет')
else
 begin
  for c:='Б' to 'щ' do
  if c in m then write(c);
 end;
end.

@Puporev · 08.01.2016, 16:58

Сообщение от hardiking

Вывести все согласные, которых нет ни в одном слове.

Раз нет ни в одном слове, значит вообще нет в строке. Это вообще детская задача.

@hardiking · 08.01.2016, 17:06 **[ТС]**

Сообщение от Puporev

Раз нет ни в одном слове, значит вообще нет в строке. Это вообще детская задача.

не могли бы вы написать эту детскую задачу? если вам не трудно.. я не пойму именно как оформить её..

@Puporev · 08.01.2016, 17:23

Сообщение от hardiking

я не пойму именно как оформить её..

Так у Вас пример есть. Из принципа писать не буду.

@bormant · 08.01.2016, 17:49

Pascal
1
2
3
4
ReadLn(s);
for i:=1 to Length(s) do Include(m,s[i]);
m:=sgl-m;
for c:='А' to 'я' do if с in m then Write(c); WriteLn;

Добавлено через 6 минут
А с учетом FPC:

Pascal
4
for c in m do Write(c); WriteLn;

@hardiking · 08.01.2016, 21:16 **[ТС]**

Сообщение от bormant

Pascal
1
2
3
4
ReadLn(s);
for i:=1 to Length(s) do Include(m,s[i]);
m:=sgl-m;
for c:='А' to 'я' do if с in m then Write(c); WriteLn;

Большое спасибо.

Новые блоги и статьи Все статьи Все блоги /
Angular: Вопросы и ответы на собеседовании Reangularity 15.06.2025 Готовишься к техническому интервью по Angular? Я собрал самые распространенные вопросы, с которыми сталкиваются разработчики на собеседованиях в этом году. От базовых концепций до продвинутых. . .	Архитектура Onion в ASP.NET Core MVC stackOverflow 15.06.2025 Что такое эта "луковая" архитектура? Термин предложил Джеффри Палермо (Jeffrey Palermo) в 2008 году, и с тех пор подход только набирал обороты. Суть проста - представьте себе лук с его. . .	Unity 4D GameUnited 13.06.2025 Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .	SSE (Server-Sent Events) в ASP.NET Core и .NET 10 UnmanagedCoder 13.06.2025 Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .	С днём независимости России! Hrethgir 13.06.2025 Решил побеседовать, с утра праздничного дня, с LM о завоеваниях. То что она написала о народе, представителем которого я являюсь сам сначала возмутило меня, но дальше только смешило. Это чисто. . .
Лето вокруг. kumehtar 13.06.2025 Лето вокруг. Наполненное бурями и ураганами событий. На фоне магии Жизни, священной и вечной, неумелой рукой человека рисуется панорама душевного непокоя. Странные серые краски проникают и. . .	Популярные LM модели ориентированы на увеличение затрат ресурсов пользователями сгенерированного кода (грязь -заслуги чистоплюев). Hrethgir 12.06.2025 Вообще обратил внимание, что они генерируют код (впрочем так-же ориентированы разработчики чипов даже), чтобы пользователь их использующий уходил в тот или иной убыток. Это достаточно опытные модели,. . .	Топ10 библиотек C для квантовых вычислений bytestream 12.06.2025 Квантовые вычисления - это та область, где теория встречается с практикой на границе наших знаний о физике. Пока большая часть шума вокруг квантовых компьютеров крутится вокруг языков высокого уровня. . .	Dispose и Finalize в C# stackOverflow 12.06.2025 Работая с C# больше десяти лет, я снова и снова наблюдаю одну и ту же историю: разработчики наивно полагаются на сборщик мусора, как на волшебную палочку, которая решит все проблемы с памятью. Да,. . .	Повышаем производительность игры на Unity 6 с GPU Resident Drawer GameUnited 11.06.2025 Недавно копался в новых фичах Unity 6 и наткнулся на GPU Resident Drawer - штуку, которая заставила меня присвистнуть от удивления. По сути, это внутренний механизм рендеринга, который автоматически. . .

Опции темы

Вывести все согласные, которых нет ни в одном слове предложения

Решение