Напишите программу, которая вводит две символьные строки и находит все латинские буквы. которых нет ни в одной из них. заглавные и строчные буквы не различаются. входные данные на вход программе две символьные строки. выходные данные программа должна вывести в одной строке в алфавитном порядке все латинские буквы, которые не встречаются ни в одной из двух входных строк. все буквы должны быть заглавными. если ни одной такой буквы нет, нужно вывести число 0. примеры входные данные qwertyuiop asdfghjklzxc выходные данные bmnv pascal abc 1.8 с использованием множеств

105

224

Посмотреть ответы 2

Ответы на вопрос:

Аленчик310805

Информатика

4,7(44 оценок)

Var used: set of char; s1, s2: string; i: integer; done: boolean; c: char; function isletter(c: char): boolean; begin isletter : = ((c > = 'a') and (c < = 'z')) or ((c > = 'a') and (c < = 'z')); end; function uppercase(c: char): char; begin if (c > = 'a') and (c < = 'z') then uppercase : = chr(ord(c) - ord('a') + ord('a')) else uppercase : = c; end; begin used : = []; readln(s1); readln(s2); for i : = 1 to length(s1) do if (isletter(s1[i])) then include(used, uppercase(s1[i])); for i : = 1 to length(s2) do if (isletter(s2[i])) then include(used, uppercase(s2[i])); done : = false; for c : = 'a' to 'z' do if not (c in used) then begin done : = true; write(c); end; if not done then write(0); writeln; end.