есть 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)
type
TSet = set of byte;
const
max = 9;
baseSet : TSet = [0..max];
var
checkSet : TSet = [2,3,5,6];
procedure c(n : TSet);
var
i : byte;
begin
n := baseSet - n;
for i := 0 to max do
if i in n then writeln(i);
end;
begin
c(checkSet);
readln;
end.
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.
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.
type
interval = 0 .. 9;
natur = set of interval;
procedure p(n: integer);
var
i: byte;
s: natur;
begin
s := [];
while n > 0 do begin
s := s + [ n mod 10 ];
n := n div 10;
end;
for i := low(interval) to high(interval) do
if not (i in s) then write(i:3);
writeln;
end;
var n: integer;
begin
write('n = '); readln(n);
p(n);
end.