Множества

[gaben134]

Множества

Помогите пожалуйста
Напечатать в возрастающем порядке все цифры, не входящие в десятичную запись натурального числа N (число выбрать произвольно).

 

[Vladimir_S]

Помогите пожалуйста
Напечатать в возрастающем порядке все цифры, не входящие в десятичную запись натурального числа N (число выбрать произвольно).

Да без проблем:

Var
 N:String;
 i,k:Byte;
 S:Set of byte;
 Code:Word;

Begin
 Write('N = ');
 Readln(N);
 S:=[];
 for i:=1 to Length(N) do
  begin
   Val(N[i],k,Code);
   if Not(k in S) then S:=S+[k];
  end;
 for i :=0 to 9 do
  if Not(i in S) then Write(i:2);
 Readln
End.

 

[gaben134]

Какой же вы крутой, чисто всегда помогаете

 

[gaben134]

Но небольшая проблема, паскаль выдает ошибку
"Program1.pas(13) : Нет перегруженной подпрограммы с такими типами параметров"
в этой строчке "Val(N,k,Code);"

 

[Vladimir_S]

Но небольшая проблема, паскаль выдает ошибку
"Program1.pas(13) : Нет перегруженной подпрограммы с такими типами параметров"
в этой строчке "Val(N,k,Code);"

Черт, так я и знал! АВС, конечно? Поубивал бы этих идиотов: и которые создали, и которые впендюривают это изделие №2 студентам. Естественно, прежде чем выкладывать, оттестировал. Но у меня-то нормальный Free Pascal, а не это...
Ладно, попробуйте так:

Var
 N,Q:String;
 i,k,M:Byte;
 S:Set of byte;
 Code:Integer;

Begin
 Write('N = ');
 Readln(N);
 M:=Length(N);
 S:=[];
 for i:=1 to M do
  begin
   Q:=N[i];
   Val(Q,k,Code);
   if Not(k in S) then S:=S+[k];
  end;
 for i :=0 to 9 do
  if Not(i in S) then Write(i:2);
 Readln
End.

 

[gaben134]

Cпасибо, вы как всегда лучший

 

[Vladimir_S]

Cпасибо, вы как всегда лучший

Заработало, как я понял? Ну вот и славно, если так.