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

@Jillian · Регистрация: 28.04.2011

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

Доброго времени суток!Посмотрите задачу, пожалуйста!

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

Pascal

Program mn;
uses crt;
type let='а'..'я';
var sogl:set of let;
text: set of char;
c:char;
s:string;
i:byte;
begin
writeln('введите текст, заканчивающийся  точкой');
readln(s);
if s[length(s)]<>'.' then s:=s+'.';
text:=[];
sogl :=['б','в','г','д','ж','з','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
repeat
if s[i] in sogl then text:=text+[s[i]];
i:=i+1;
until s[i]='.';
for c:='a'  to 'я' do if c  in text then write(c);
readln;
end.

Проблема, собственно,как исключить согласные буквы, которые входят в остальные слова?

magirus · 28.04.2011, 21:56

Комментарий модератора

называйте темы информативно и прочитайте правила форума

Опции темы