Question

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

Answer 1

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadlnString.ToWords(Arr(',','.'));
  var (i,ssg):=(1,'аеёиоуыэюя');
  var sg:=['а','е','ё','и','о','у','ы','э','ю','я'];
  while i<=a.Length do begin
    foreach var c in a[i].ToCharArray do
      if c in sg then Exclude(sg,c);
    i+=2
    end;
  for var j:=ssg.Length downto 1 do
    if not (ssg[j] in sg) then Delete(ssg,j,1);
  ssg.ToCharArray.Println(',')
end.