задача с "set", ... Опции

[n4oJllI]

есть TYPE natur=1..maxint;

Надо создать процедуру с (n) .
пример:

n=2,3,5,6
решение = 0,1,4,7,8,9 /

тоесть из множества (0,1,2,3,4,5,6,7,8,9 ), афишировать те цыфры которые не входят в (n)

Сообщение отредактировано: n4oJllI - 26.01.2006 3:42

[volvo]

Так:

type
  interval = 0 .. 9;
  natur = set of interval;

procedure p(n: natur);
var i: byte;
begin
  for i := low(interval) to high(interval) do
    if not (i in n) then write(i:3);
  writeln;
end;

begin
  p([2, 3, 5, 6]);
end.

?