вывести X1, X2, X3

@maksssssssssssssss · Регистрация: 11.07.2009

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

4. Даны три множества X1, X2, X3, содержащие целые числа из диапазона [1..100]. Сформировать новое множество Y=(X1UX2)\(X2UX3), из которого выделить подмножество чётных чисел.
Имеется программа нужно вывести X1, X2, X3

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
var
y,ychet:set of 1..100;
x:array[1..3] of set of 1..100;
el:byte;
i,j:byte;
begin
randomize;
for i:=1 to 3 do
for j:=1 to 50 do
begin
el:=random(100)+1;
x[i]:=x[i]+[el];
end;
y:=(x[1]*x[2])-(x[2]*x[3]);
for i:=1 to 100 do
if i in y then write(i,' ');
ychet:=[];
writeln;
for i:=2 to 100 do
if i mod 2=0 then
if i in y then
begin
ychet:=ychet+[i];
write(i,' ');
end;
readln;
end.

Ниид хелп

@Puporev · 02.07.2010, 09:11

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

нужно вывести X1, X2, X3

Pascal
1
2
for i:=1 to 100 do
if i in x1 then write(i,' ');

Добавлено через 1 минуту

Не по теме:

А ники такие в Кащенке выдают?

@maksssssssssssssss · 02.07.2010, 09:11 **[ТС]**

Puporev, Спасибо!А вставить между чем и чем?)

@Puporev · 02.07.2010, 09:12

Да в каком месте нужно вывести, там и вставишь, твоя же программа, вот и командуй.

@maksssssssssssssss · 02.07.2010, 09:23 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
var
y,ychet:set of 1..100;
x:array[1..3] of set of 1..100;
el:byte;
i,j:byte;
begin
randomize;
for i:=1 to 3 do
for j:=1 to 50 do
begin
el:=random(100)+1;
x[i]:=x[i]+[el];
end;
for i:=1 to 100 do
if i in x[1] then write(i,' ');
y:=(x[1]*x[2])-(x[2]*x[3]);
for i:=1 to 100 do
if i in y then write(i,' ');
ychet:=[];
writeln;
for i:=2 to 100 do
if i mod 2=0 then
if i in y then
begin
ychet:=ychet+[i];
write(i,' ');
end;
readln;
end.

Так будет правильно?

Добавлено через 6 минут
Х2 и Х3 также вывести?

@Puporev · 02.07.2010, 09:38

Х2 и Х3 также вывести?

А я знаю? Если нужно, выведи, это же как тебе нравится или как в задании написано, так и делаешь.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки на предмет заполнения реквизитов реализован с целью установки значения по умолчанию,. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .

@maksssssssssssssss 6 / 6 / 0 Регистрация: 11.07.2009 Сообщений: 55
	02.07.2010, 09:11 [ТС]
	Puporev, *Спасибо!А вставить между чем и чем?)* 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	02.07.2010, 09:12
	Да в каком месте нужно вывести, там и вставишь, твоя же программа, вот и командуй. 0