Из заданного множества целых чисел выделить множество нечётных чисел и чисел, делящихся без остатка на 17

@ocsoget · Регистрация: 28.05.2014

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

Дано множество Xl,содержащее целые числа из диапазона [1..255]. Сформировать новое множество Y путем выделения из множества Xl нечетных чисели чисел,делящихся без остатка на 17.

@ZX Spectrum-128 · 09.06.2014, 12:31

Pascal

{Дано множество Xl,содержащее целые числа из диапазона [1..255].
Сформировать новое множество Y путем выделения из множества Xl
нечетных чисели чисел,делящихся без остатка на 17.}
var
  x1,y : set of byte;
  i:byte;
begin
  y:=[];x1:=[];
  {заполнение множества}
  for i:=1 to 255 do
    x1:=x1+[i];
 
  for i:=low(x1) to high(x1) do
    if (odd(i)) and (i mod 17=0) then
      y:=y+[i];
 
  {вывод множества}
  for i:=1 to 255 do
    if i in y then
      write(i,' ');
end.

@ocsoget 0 / 0 / 0 Регистрация: 28.05.2014 Сообщений: 30
		1
	Из заданного множества целых чисел выделить множество нечётных чисел и чисел, делящихся без остатка на 17 08.06.2014, 19:44. Показов 2249. Ответов 1 Метки нет (Все метки) Дано множество Xl,содержащее целые числа из диапазона [1..255]. Сформировать новое множество Y путем выделения из множества Xl нечетных чисели чисел,делящихся без остатка на 17. 0

	09.06.2014, 12:31

Опции темы

Из заданного множества целых чисел выделить множество нечётных чисел и чисел, делящихся без остатка на 17

Решение