Question

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

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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