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

@zzhuk · Регистрация: 22.10.2015

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

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

@vint-81 · 23.10.2015, 10:27

для русских букв переделайте самостоятельно

Pascal

const gl:set of char=['a','e','i','o','u'];
var s,rez:string;i:char;
function vh2(x:string;sim:char):boolean;
var i,k:integer;f:boolean;
begin
 k:=0;i:=1;f:=false;
 while (k<2)and(x[i]<>'.') do
  begin
   if x[i]=sim
    then
     begin
      inc(k);
      while (x[i]<>',')and(x[i]<>'.')do inc(i);
     end
    else inc(i)
  end;
 if k>1 then f:=true;
 vh2:=f
end;
begin
 s:='boolean,var,then,begin.';
 writeln(s);
 rez:='';
 for i:='a'to'u'do if (i in gl)and(vh2(s,i)) then rez:=rez+i;
 if rez='' then writeln(' - ')
            else writeln(rez)
end.

@zzhuk 0 / 0 / 0 Регистрация: 22.10.2015 Сообщений: 6
		1
	Напечатать в алфавитном порядке гласные буквы, которые входят более чем в одно слово 23.10.2015, 02:44. Показов 3078. Ответов 1 Метки нет (Все метки) Дана непустая последовательность слов из строчных русских букв, между соседними словами ─ запятая, за последним словом ─ точка. Напечатать в алфавитном порядке гласные буквы, которые входят более чем в одно слово. Вывести исходную последовательность слов. 0

	23.10.2015, 10:27

Опции темы

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

Решение