Question

50 баллов. PascalABC
Дан текст, состоящий из слов, содержащих только строчные русские буквы; между соседними словами - запятая, после последнего слова - точка. Напечатать в алфавитном порядке все глухие согласные буквы, которые входят хотя бы в одно слово.
Глухие согласные: к,п,с,т,ф,х,ц,ч,ш,щ.

Answer 1

var s:string;
gl,mn: set of char;
i:integer;
c:char;
begin
writeln('Введите текст:');
readln(s);
gl:=['к','п','с','т','ф','х','ц','ч','ш','щ'];
mn:=[];
for i:=1 to length(s) do
 if s[i] in gl then mn:=mn+[s[i]];
for c:='к' to 'щ' do
 if c in mn then write(c:2);
writeln;
end.

Пример:
Введите текст:
дан текст, состоящий из слов, содержащих только строчные русские буквы; между соседними словами - запятая, после последнего слова - точка.
 к п с т х ч щ