Задание
Дан текст на русском языке. Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово; все согласные, которые не входят хотя бы в одно слово.
я правильно начинаю прогу??и веду подсчёт гласных букв??
const r=ord('а')-ord('А');
var m:set of 'а'..'я';
sl:array[1..50] of string;
s:string;
i,k,l:integer;
c:char;
begin m:=['а','е','ё','и','о','у','ы','э','ю','я']
write('введите текст на русском языке:');
readln(s);
writeln('Вот эти буквы:');
for c:='а' to 'я' do if c in m then write( с );
writeln
Сообщение отредактировано: shyrik -