Напишите программу, которая вводит две символьные строки и находит все латинские буквы, которых нет ни в одной из них. Заглавные и строчные буквы не различаются.

Входные данные
На вход программе подаются две символьные строки.

Выходные данные
Программа должна вывести в одной строке в алфавитном порядке все латинские буквы, которые не встречаются ни в одной из двух входных строк. Все буквы должны быть заглавными. Если ни одной такой буквы нет, нужно вывести число 0.

Примеры
входные данные
qwertyuiop
asdfghjklzxc
выходные данные
BMNV
Pascal ABC 1.8 с использованием множеств

Создадим множество used, куда добавим все буквы из обеих строк, предварительно переводя их в заглавные. Затем переберём буквы от A до Z и выведем те, которых нет во множестве.

Программа Pascal ABC 1.8:

var
s1, s2, result: string;
ch: char;
used: set of char;
begin
ReadLn(s1);
ReadLn(s2);

for ch in s1 do
Include(used, UpCase(ch));
for ch in s2 do
Include(used, UpCase(ch));

result := '';
for ch := 'A' to 'Z' do
if not (ch in used) then
result := result + ch;

if result = '' then
WriteLn(0)
else
WriteLn(result);
end.

Для примера программа выведет BMNV.

0 0 Пожаловаться