Напечатать в алфавитном порядке все согласные буквы, которые не входят ни в одно слово - Turbo Pascal

Формулировка задачи:

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

Код к задаче: «Напечатать в алфавитном порядке все согласные буквы, которые не входят ни в одно слово - Turbo Pascal»

textual
uses crt;
const
     a=['А'..'Я','а'..'я'];
     g=['У','Ё','Е','Ы','А','О','Э','Я','И','Ю',
        'у','ё','е','ы','а','о','э','я','и','ю'];
     s=a-g-['ъ']-['ь'];
var str: string;
    i: byte;
    m: set of char;
    
begin
write('s='); readln(str);
m:=s;
for i:=1 to length(str) do
    if str[i] in s then m:=m-[str[i]];
for i:=222 to 255 do
    if chr(i) in m then write(chr(i),' ');
readln;
end.

5   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ