Задача № 19

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

Пример решении –

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var s:string;

i:integer;

c:char;

n:set of char;

const m:set of char=['а','е','и','о','у','ы','э','ю','я'];

begin

s:=Edit1.Text;

n:=[];

Edit2.Text:='';

for i:=1 to Length(s) do

if s[i] in m then n:=n+[s[i]];

for c:='а' to 'я' do

if c in n then Edit2.Text:=Edit2.Text+c;

end;

end.