Дан текст из латинских букв, заканчивается точкой. Напечатать в алфавитном порядке (по одному разу) все гласные буквы (a, e, i, o, u), которые входят в текст.
Дан текст из латинских букв, заканчивается точкой. Напечатать в алфавитном порядке (по одному разу) все гласные буквы (a, e, i, o, u), которые входят в текст.
заполнить множество можно попробовать так: for i := 1 to Length(s) do s := s + s[i]; дальше проверка на вхождение if CharInSet('a', s) then печатаем может и какой-то более элегантный способ есть
заполнить множество можно попробовать так: for i := 1 to Length(s) do s := s + s[i]; дальше проверка на вхождение if CharInSet('a', s) then печатаем может и какой-то более элегантный способ есть