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

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

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

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

@vint-81 · 12.11.2015, 14:49

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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.

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@roman0495 0 / 0 / 0 Регистрация: 11.05.2015 Сообщений: 18

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

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

Решение