Цитата:
Сообщение от gaben134
Помогите пожалуйста
Напечатать в возрастающем порядке все цифры, не входящие в десятичную запись натурального числа 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.