Множества

[mimit]

С клавиатуры считать элементы двух множеств. Первое состоит из трех чисел, лежащих на промежутке от 0 до 10, второе - из пяти чисел лежащих на промежутке от 2 до 15. Сформировать новое множество, состоящее из общих элементов двух множеств, кратных трем. Вывести полученное множество на экран.

var m1: set of 0..10;
    m2: set of 2..15;
    m3: set of 0..15;
    i,x,j,y:integer;
begin
    m1:=[];
    m2:=[];
    i:=0;
    writeln('vvedite m1');
    repeat
    readln(x);
    if (x>=0) and (x<=10)
    then
    begin
    m1:=m1+[x];
    inc(i);
    end
    else
    writeln('ne vepnoe 4islo');
    until (i=3);
    j:=0;
    writeln('vvedite m2');
    repeat
    readln(y);
    if (y>=2) and (y<=15)
    then
    begin
    m2:=m2+[y];
    inc(j);
    end
    else
    writeln('ne vepnoe 4islo');
    until (j=5);
    m3:=m1*m2;
    write('[');
    for i:=0 to 15 do
    if i in m3 then write(i,' '); write(']');  end
    readln;
end.

нужно добавить условие кратны 3, не могу сделать.

[whatever]

var m1: set of 0..10;
    m2: set of 2..15;
    m3: set of 0..15;
    i,x,j,y:integer;
begin
    m1:=[];
    m2:=[];
    i:=0;
    writeln('vvedite m1');
    repeat
    readln(x);
    if (x>=0) and (x<=10)
    then
    begin
    m1:=m1+[x];
    inc(i);
    end
    else
    writeln('ne vepnoe 4islo');
    until (i=3);
    j:=0;
    writeln('vvedite m2');
    repeat
    readln(y);
    if (y>=2) and (y<=15)
    then
    begin
    m2:=m2+[y];
    inc(j);
    end
    else
    writeln('ne vepnoe 4islo');
    until (j=5);
//    m3:=m1*m2;
    m3:=[];
    write('[');
    for i:=0 to 15 do
    if (i in m2)and(i in m1)and((i mod 3)=0) then
    begin
      m3:=m3+i;
      write(i,' ');
    end
    write(']');
    readln;
end.

[mimit]

Сообщение от whatever

var m1: set of 0..10;
    m2: set of 2..15;
    m3: set of 0..15;
    i,x,j,y:integer;
begin
    m1:=[];
    m2:=[];
    i:=0;
    writeln('vvedite m1');
    repeat
    readln(x);
    if (x>=0) and (x<=10)
    then
    begin
    m1:=m1+[x];
    inc(i);
    end
    else
    writeln('ne vepnoe 4islo');
    until (i=3);
    j:=0;
    writeln('vvedite m2');
    repeat
    readln(y);
    if (y>=2) and (y<=15)
    then
    begin
    m2:=m2+[y];
    inc(j);
    end
    else
    writeln('ne vepnoe 4islo');
    until (j=5);
//    m3:=m1*m2;
    m3:=[];
    write('[');
    for i:=0 to 15 do
    if (i in m2)and(i in m1)and((i mod 3)=0) then
    begin
      m3:=m3+i;
      write(i,' ');
    end
    write(']');
    readln;
end.

Выдает ошибку в строчке m3:=m3+i;

[whatever]

Сообщение от mimit

Выдает ошибку в строчке m3:=m3+i;

Ну это я опечатался. Домашнее задание тебе будет. Еще я ";" в одном месте пропустил. Поправь и будет работать.

Sciv, все проще . Но, сдается мне, начало автор не сам писал.

[Sciv]

Попробуйте include(m3,i); использовать

UPDATE
Whatever, сорри, что вмешался в учебный процесс Но думаю, для ТС полезно будет выучить не только операции с множествами, но и процедуры

[mimit]

Сообщение от whatever

Ну это я опечатался. Домашнее задание тебе будет. Еще я ";" в одном месте пропустил. Поправь и будет работать.

Sciv, все проще . Но, сдается мне, начало автор не сам писал.

я знаю где ты не написал ; после end нет начала я сам писал просто я не знаю как сделать чтобы он выводил числа кратные 3

[mimit]

Все равно не могу додуматься в чем ошибка в строчке m3:=m3+i;

[whatever]

Сообщение от mimit

Все равно не могу додуматься в чем ошибка в строчке m3:=m3+i;

Что и требовалось доказать. Значит спроси у того, кто тебе изначально писал.

[Sciv]

Все равно не могу додуматься в чем ошибка в строчке m3:=m3+i;

Подсказка: смотри выше

Что и требовалось доказать.

Эт точно

[Mad_Cat]

не проще?

var m1,m2,m3:set of byte;
i,k:byte;
begin
m1:=[];m2:=[];m3:=[];
for i:=1 to 3 do
begin
repeat
readln(k)
until (k<=10) and(k>=0);
m1:=m1+[k];end;
for i:=1 to 5 do
begin
repeat
readln(k)
until (k<=15) and(k>=2);
m2:=m2+[k];end;
for i:=0 to 15 do
if (i mod 3 = 0) and (i in m1) and (i in m2)
then begin m3:=m3+[i];
write(i,' ');
end;
end.