Множества символов заполнены следующим образом: множество 1-цифрами; множество 2 –...

Question

Множества символов заполнены следующим образом: множество 1-цифрами; множество 2 – знаками препинания; множество 3 – буквами. Выведите на экран пересечение и объединение этих множеств.

Answer 1

Думаю так попроще, хотя не уверенна сработает ли foreach
//PascalABC.NET 3.1 сборка 1239
var
    m1, m2, m3: set of char;
    c: char;

begin
    m1 := ['0'..'9'];
    m2 := ['.', ',', ':', '?', '!', ';'];
    m3 := ['a'..'z'];

    writeln('Пересечение множеств:');
    foreach c in (m1 * m2 * m3) do
        write(c, ' ');
    writeln;
   
    writeln('Объединение множеств:');
    foreach c in (m1 + m2 + m3) do
        write(c, ' ');
    writeln;
end.

Comments

В том то и дело что я не знаю что должно а что не должно))) время школы давно ушло, а кучу левых программ только для проверки ставить не хочется.

---

2Gleb1Kosyrev: в Справке см. Српавочник по языку - Системный модуль PascalABCSystem

---

Вот поэтому, если нет возможности/желания разбираться в тонкостях версий, берите ту, что знаете и работайте в ней, если автор вопроса явно не указал иную.

---

У меня вопрос версий решен просто: ест практически все на отдельной виртуальной машине. Надо - загружаю и проверяю)))

---

ого, конкретно

---

А как иначе модерировать?

---

ну да, если для проверки других ответов то оправданно. Вы серьезно подходите к делу

---

Мы же, принимая задание в архив решенных, гарантируем его правильность.

---

у вас даже всякие qbasicи стоят?

---

qBASIC, GW-Basic, BASIC64, VB6 и еще какой-то....забыл)))

Answer 2

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