Проверить принадлежность числа множеству

@Виталий97 · Регистрация: 15.10.2015

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

Заполнить множество пятнадцатью случайными целыми положительными числами, вывести множество на экран. Ввести с клавиатуры произвольное число и проверить, принадлежит ли оно получившемуся множеству.

@Peoples · 21.03.2016, 17:25

Pascal

program pr;
 
var
  i, x, n: integer;
  m: set of integer;
 
begin
  randomize;
  m := [];
  for i := 1 to 15 do
  begin
    x := random(21);
    m := m + [x];
    write(x:3);
  end;
  writeln;
  writeln('Введите число');
  readln(n);
  if n in m then
    writeln('Принадлежит множеству ')
  else writeln('Не принадлежит множеству');
end.

@Виталий97 1 / 1 / 0 Регистрация: 15.10.2015 Сообщений: 60
		1
	Проверить принадлежность числа множеству 21.03.2016, 11:41. Показов 8550. Ответов 1 Метки нет (Все метки) Заполнить множество пятнадцатью случайными целыми положительными числами, вывести множество на экран. Ввести с клавиатуры произвольное число и проверить, принадлежит ли оно получившемуся множеству. 0

	21.03.2016, 17:25

Проверить принадлежность числа множеству

Решение