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

Question

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

Comments

Какой язык, какая версия?

---

паскаль.нет

---

О... это отлично, там удобно работать с множествами

---

спасибо огромное заранее))))

Answer 1

Const
  s1=[2..7,9,11,14..19];
  s2=[3..9,12..15];
var
  s3:set of byte;
  n:byte;
begin
  s3:=s1-s2;
  foreach n in s3 do if n mod 2<>0 then Write(n,' ');
  Writeln
end.

Результат выполнения программы:
11 19 17

Comments

Наврал, исправлю. Не заметил в условии НЕЧЕТНОГО

---

Должно быть тогда foreach n in s3 do if (n mod 2)<>0 then Write(n,' ');

---

И в контрольном решении не будет чисел 16, 2, 18.

---

спасибо) это я сама заметила и исправила)

---

Вы-то исправили, но здесь тоже должно быть верное решение