Перечислить через запятую в возрастающем порядке элементы, которые входят в множество А после выполнения следующей последовательности операторов: var A,B,C:set of 1..100;
I:byte;
begin
A:=[1..10,20,30,40];
for I:=1 to 9 do A:=A-[i];
B:=[20..30];
A:=B*A;
end.
Помогите пожалуйста!!
I:byte;
begin
A:=[1..10,20,30,40];
for I:=1 to 9 do A:=A-[i];
B:=[20..30];
A:=B*A;
end.
Помогите пожалуйста!!