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

ANTON5452 ANTON5452    1   27.05.2019 20:40    0

Ответы
ksskjskdjdkdk ksskjskdjdkdk  01.10.2020 12:58
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика