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

Question

Информатика

Варсонофий

20 августа, 23:32

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

+2

Ответы (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