Получить другое множество, элементами которого являются четные числа - Turbo Pascal - Ответ 1536839

uses crt;
var m1,m2:set of byte;
    i:byte;
begin
clrscr;
m1:=[1..20];
m2:=[];
writeln('Исходное множество:');
for i:=1 to 20 do
if i in m1 then
 begin
  write(i:3);
  if i mod 2=0 then m2:=m2+[i];
 end;
writeln;
if m2=[] then write('Четных чисел нет')
else
 begin
  writeln('Множество четных чисел:');
  for i:=2 to 20 do
  if i in m2 then write(i:3);
 end;
readln
end.

uses crt;
var m1,m2,ob,rz,pr:set of byte;
    i:byte;
begin
clrscr;
m1:=[1..20];
m2:=[12..25];
writeln('Первое множество:');
for i:=0 to 225 do
if i in m1 then
write(i:3);
writeln;
writeln('Второе множество:');
for i:=0 to 255 do
if i in m2 then
write(i:3);
writeln;
ob:=m1+m2;
writeln('Объединение множеств:');
for i:=0 to 255 do
if i in ob then
write(i:3);
writeln;
rz:=m1-m2;
writeln('Разность множеств:');
for i:=0 to 255 do
if i in rz then
write(i:3);
writeln;
pr:=m1*m2;
writeln('Пересечение множеств:');
for i:=0 to 255 do
if i in pr then
write(i:3);
writeln;
readln
end.