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

@Нурби · Регистрация: 18.05.2011

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

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

@be · 01.06.2011, 20:03

поиск тебе в помощь-https://www.cyberforum.ru/pasc... 41358.html

@den= · 10.06.2011, 20:23

Pascal

Program mn_3;
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.

@Нурби 1 / 1 / 0 Регистрация: 18.05.2011 Сообщений: 28
		1
	Напечатать в алфавитном порядке все глухие согласные буквы, которые входят в каждое нечетное слово 30.05.2011, 19:57. Показов 5815. Ответов 2 Метки нет (Все метки) Дан текст на русском языке. Напечатать в алфавитном порядке все глухие согласные буквы, которые входят в каждое нечетное слова и не входят хотя бы в одно слово. 0

@be 94 / 94 / 64 Регистрация: 18.04.2011 Сообщений: 165
	01.06.2011, 20:03	2
	поиск тебе в помощь-https://www.cyberforum.ru/pasc... 41358.html 1

	10.06.2011, 20:23

Опции темы

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

Решение