Writeln;

T:=m1-m2;

Form_Set(ch1,m0,m1);

End;

Read(i);

Begin

Read(i);

M0:=[];

Clrscr;

Begin

End;

Writeln;

Begin

End;

K:=[];

Begin

I:integer;

ch1,ch2:byte;

{процедура формирования множества k,состоящих из элементов множества m, кратных ch}

procedure Form_Set(ch:byte;m:digits;var k:digits);

var i:integer;

for i:=0 to 20 do if (i in m) and (i mod ch=0) then k:=k+[i];

{процедура вывода множества set_}

procedure out_set(set_:digits);

var i:integer;

for i:=0 to 20 do

if (i in set_) then write(i:3);

{формирование множества 1}

writeln('Введите последовательность чисел [0..20] (признак конца - 0)');

if i<>0 then m0:=m0+[i];

while (i<>0) do

m0:=m0+[i]

{формирование множества 2}

write ('vvedite chislo '); read(ch1);

m2:=[2,4,6,8,10,12,14,16,18,20]; {формирование множества 3}

l:=m1+m2;

f:=m1*m2;

{вывод множеств}

writeln('set m0:'); out_set(m0);

writeln('set m1:'); out_set(m1);

writeln('set m2:'); out_set(m2);

writeln('set m1+m2:'); out_set(l);

writeln('set m1*m2:'); out_set(f);

writeln('set m1-m2:'); out_set(t);

Дата добавления: 2013-12-13