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

188

267

Посмотреть ответы 2

Ответы на вопрос:

igulsinya

Информатика

4,4(61 оценок)

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. пример: введите текст: дан текст, состоящий из слов, содержащих только строчные буквы; между соседними словами - запятая, после последнего слова - точка. к п с т х ч щ