Question

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

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.

Answer 2

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

Answer 3

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

Answer 4

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