Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
1210
0 / 0 / 0
Регистрация: 21.09.2015
Сообщений: 8
1

Вывести на экран нечетные элементы числового множества, которое является разностью двух других множеств

25.09.2015, 19:43. Просмотров 901. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста с решением задачи.
Решить задачу на обработку множества. Вывести на экран нечетные элементы числового множества, которое является разностью двух других множеств.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.09.2015, 19:43
Ответы с готовыми решениями:

Вывести на экран кратные трем элементы числового множества, которое является разностью двух других множеств
Помогите пожалуйста!!!! Решить задачу на обработку множества. Вывести на...

Вывести на экран четные элементы числового множества, которое является пересечением двух других множеств.
Нужна помощь!!! Вывести на экран четные элементы числового множества, которое...

Вывести на экран кратные пяти элементы числового множества, которое является объединением двух других множеств
Вывести на экран кратные пяти элементы числового множества, которое является...

Вывести на экран cначала четные элементы массива, затем нечетные
Дан массив целых чисел. Вывести на экран сначало четные элементы массива,...

Вывести на экран сначала четные элементы массива потом нечетные
Дан массив целых чисел. Вывести на экран сначало четные элементы массива потом...

1
JuriiMW
1956 / 1053 / 1562
Регистрация: 10.12.2014
Сообщений: 3,885
28.09.2015, 07:30 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
function inputSet : Set of Integer;
begin
  Result := [];
  var N := ReadLnInteger('Число элементов =');
  for var i := 1 to N do
    begin
      var Elem := ReadLnInteger(i.ToString + ' элемент =');
      Result += [Elem];
    end;
end;
 
begin
  WriteLn('введите элементы 1 множества:'); var U1 := inputSet;
  WriteLn('введите элементы 2 множества:'); var U2 := inputSet;
  
  WriteLn('1 множество: ', U1);
  WriteLn('2 множество: ', U2);
  
  var Res  : Set of Integer := U1 - U2;
  var Elem := 0;
  foreach Elem in Res do
    if not odd(Elem) then
      Res -= [Elem];
 
  Write('Нечётные элементы множества, которое является разностью первого и второго: ', Res);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.09.2015, 07:30

Создать два множества.Подсчитать количество четных элементов во множестве, которое является пересечением этих двух множеств
Создать два множества (X и Y).Подсчитать количество четных элементов во...

Множества: вывести напечатать общие элементы двух множеств
Пусть заданы множество А и множество В целых чисел, вывести напечатать общие...

Определить количество кратных пяти элементов числового множества, которое является объединением
Определить количество кратных пяти элементов числового множества, которое...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru