Задача в паскале.Вывести ** экран в порядке возрастания все цифры, не являющиеся цифрами...

Question

Задача в паскале.
Вывести на экран в порядке возрастания все цифры, не являющиеся цифрами данного десятичного натурального числа (переменной целого типа). Например, число 125657 не содержит цифры: 0, 3, 4, 8, 9.

Comments

Это что так срочно?

---

нет.

---

самое простое - преобразовать в строку и дольше работать с фунцкцией поиска подстроки.

Answer 1

Var
    s: string;
    i, n: integer;
    c: char;
    b:boolean;

begin
    readln(n);
    s := inttostr(n);
    for c := '0' to '9' do
    begin
        b := true;
        for i := 1 to length(s) do
            if s[i] = c then begin
                b := false;
                break;
            end;
        if b then writeln(c);
    end;
   
end.

Comments

вместо s := inttostr(n); надо str(n,s);

---

ну видать в разных средах разработки по разному

---

этот код писался на паскал АВС