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

@Линда * · Регистрация: 11.04.2011

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

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

Спасибо!

@Omlette · 04.05.2011, 21:32

Pascal

var s:string; i,m:integer;a:array [1..10,1..2] of char;
begin
 writeln('Введите строку ');
 readln(s);
 a[1,1]:='б';
 a[2,1]:='в';
 a[3,1]:='г';
 a[4,1]:='д';
 a[5,1]:='ж';
 a[6,1]:='з';
 a[7,1]:='л';
 a[8,1]:='м';
 a[9,1]:='н';
 a[10,1]:='р';
 for i:=1 to 10 do a[i,2]:='0';
 for m:=1 to length(s)-1 do
  for i:=1 to 10 do
   if s[m]=a[i,1] then
    a[i,2]:='1';
 for i:=1 to 10 do if a[i,2]='1' then write(a[i,1]:3);
end.

@Линда * 0 / 0 / 0 Регистрация: 11.04.2011 Сообщений: 9
		1
	Напечатать в алфавитном порядке все звонкие согласные буквы (б, в, г, д, ж, з, л, м, н, р), которые входят хотя бы в одно слово. 04.05.2011, 20:49. Показов 2793. Ответов 1 Метки нет (Все метки) Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке все звонкие согласные буквы (б, в, г, д, ж, з, л, м, н, р), которые входят хотя бы в одно слово. Спасибо! 0

	04.05.2011, 21:32

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

Решение