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

@aidoqa · Регистрация: 08.02.2011

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

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

@Michael#7 · 03.05.2011, 14:01

Pascal

uses crt;
var A:set of char;
    s:string;
    i:integer;
begin
clrscr;
A:=['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
readln(s);
for i:=1 to length(s) do A:=A-[s[i]];
for i:=0 to 255 do if (chr(i) in A) then write(chr(i),' ');
readln; end.

@aidoqa 587 / 101 / 2 Регистрация: 08.02.2011 Сообщений: 842
		1
	Напечатать в алфавитном порядке все согласные буквы которые не входят ни в одно слово 03.05.2011, 09:39. Показов 1135. Ответов 1 Метки нет (Все метки) Дана не пустая последовательность слов из строчных русских букв: между соседними словами - запятая, за последним словом- точка. Напичатать в алфавитном порядке все согласные буквы которые не входят ни в одно слово. Заранее спасибо 0

	03.05.2011, 14:01

Опции темы

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

Решение