задача с "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

[n4oJllI]

Type natur=1..maxint ;
     mul=0..9 ;
     r= set of mul ;
var
   n:natur;
   k:r;


procedure prr(h:natur;  s:integer);
  var k:r ;
  begin

  while h<>0 do
  begin
  s:=h mod 10 ;
  if s in k then k:=k-s;
  n:=h div 10 ;
  s:=0;
  end;
     write (k);
  end;
  begin
  writeln('nomer'); read(n);

   prr(n,k);

  end.

этот алгоритм правельный ???

Сообщение отредактировано: volvo - 2.11.2006 22:14