50 баллов. PascalABCДан текст, состоящий из слов, содержащих только строчные российские
50 баллов. PascalABC
Дан текст, состоящий из слов, содержащих только строчные российские буковкы; меж примыкающими словами - запятая, после заключительного слова - точка. Напечатать в алфавитном порядке все глухие согласные буквы, которые входят желая бы в одно слово.
Глухие согласные: к,п,с,т,ф,х,ц,ч,ш,щ.
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.
Пример:
Введите текст:
дан текст, состоящий из слов, содержащих только строчные русские буквы; между примыкающими словами - запятая, после заключительного слова - точка.
к п с т х ч щ
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.
Пример:
Введите текст:
дан текст, состоящий из слов, содержащих только строчные русские буквы; между примыкающими словами - запятая, после заключительного слова - точка.
к п с т х ч щ
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов