Напечатать в алфавитном порядке все глухие согласные буквы, которые входят в текст

@марфута · Регистрация: 24.12.2015

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

Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке все глухие согласные буквы, которые входят в текст.Написать программу с использованием модуля.

@ZX Spectrum-128 · 27.12.2015, 17:23

Сообщение от марфута

Напечатать в алфавитном порядке все глухие согласные буквы, которые входят в текст.

Pascal

var
  sogl: set of char;
  text: set of char;
  c:char;
  s:string;
  i:byte;
begin
  write('Введите текст: ');
  readln(s);
  text:=[];
  sogl:=['к','п','с','т','ф','х','ц','ч','ш','щ','К','П','С','Т','Ф','Х','Ц','Ч','Ш','Щ'];
  for i:=1 to length(s) do
    if s[i] in sogl then
      include(text,s[i]);
  for c:=#0  to #255 do
    if c in text then
      write(c);
  readln;
end.

@марфута 0 / 0 / 0 Регистрация: 24.12.2015 Сообщений: 2
		1
	Напечатать в алфавитном порядке все глухие согласные буквы, которые входят в текст 26.12.2015, 08:56. Показов 1475. Ответов 1 Метки нет (Все метки) Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке все глухие согласные буквы, которые входят в текст.Написать программу с использованием модуля. 0

	27.12.2015, 17:23

Напечатать в алфавитном порядке все глухие согласные буквы, которые входят в текст

Решение