Множества символов заполнены следующим образом: множество 1-цифрами; множество 2 – знаками препинания; множество 3 – буквами. Выведите на экран пересечение и объединение этих множеств.
var m1,m2,m3,m4,m5:set of char; c:char; begin m1:=['0'..'9']; m2:=['.',',',':','?','!',';']; m3:=['a'..'z']; m4:=m1*m2*m3; m5:=m1 m2 m3; writeln('Пересечение множеств:'); for c:=chr(32) to chr(255) do if c in m4 then write(c:2); writeln; writeln('Объединение множеств:'); for c:=chr(32) to chr(255) do if c in m5 then write(c:2); writeln; end.
Результат: Пересечение множеств:
Объединение множеств: ! , . 0 1 2 3 4 5 6 7 8 9 : ; ? a b c d e f g h i j k l m n o p q r s t u v w x y z
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
