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

Question

Информатика

Василиса

14 мая, 00:46

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

+3

Ответы (1)

Знаете ответ на вопрос?

Константиныч · 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 20 then Write (n,' ') ;

Writeln

end.

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

11 19 17