Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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