Множества: напечатать все строчные русские гласные буквы, входящме в текст - PascalABC.NET
Формулировка задачи:
Дан текст за которым следует точка.В Алфавитном порядке напечатать все строчные русские гласные буквы (а,е,и,о,у,ы,э,ю,я) входящие в этот текст.
Решение задачи: «Множества: напечатать все строчные русские гласные буквы, входящме в текст»
textual
Листинг программы
begin
var s := ReadLnString('Текст:');
var g := 'аеёиоуыэюя';
foreach var c in g.ToCharArray do
if s.IndexOf(c) >= 0 then
Print(c);
end.