двум подмножествам целых чисел от 1 до 60 изменяет значение

@roman0495 · Регистрация: 11.05.2015

Author24 — интернет-сервис помощи студентам

Описать процедуру, которая по двум подмножествам целых чисел от 1 до 60 изменяет значение 1-го подмножества, удаляя из него все те элементы, которые на 1 меньше какого -либо элемента 2-го подмножества

@vint-81 · 12.11.2015, 14:49

Pascal

type mn=set of 1..60;
var a,b:mn;
    i:byte;
procedure vv_set(var x:mn;s:string;f:boolean);
var i:integer;
begin
 if f then begin x:=[]; for i:=1 to 5+random(11) do include(x,1+random(60)) end;
 writeln(s);
 for i:=1 to 60 do if i in x then write(i:3);
 writeln
end;
procedure del(var x:mn;y:mn);
var i:integer;
begin
 for i:=1 to 59 do if (i in x)and((i+1)in y) then exclude(x,i); 
end;
begin
 randomize;
 vv_set(a,'A:',true);
 vv_set(b,'B:',true);
 del(a,b); 
 vv_set(a,'A'':',false) 
end.

@roman0495 0 / 0 / 0 Регистрация: 11.05.2015 Сообщений: 18
		1
	двум подмножествам целых чисел от 1 до 60 изменяет значение 12.11.2015, 13:39. Показов 1058. Ответов 1 Метки нет (Все метки) Описать процедуру, которая по двум подмножествам целых чисел от 1 до 60 изменяет значение 1-го подмножества, удаляя из него все те элементы, которые на 1 меньше какого -либо элемента 2-го подмножества 0

	12.11.2015, 14:49

двум подмножествам целых чисел от 1 до 60 изменяет значение

Решение