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

Задача в паскале. Вывести на экран в порядке возрастания все цифры, не являющиеся цифрами  данного десятичного  натурального  числа  (переменной  целого типа). Например, число 125657 не содержит цифры: 0, 3, 4, 8, 9.
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы