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

Question

Константин Лобанов

Информатика

28 марта, 15:02

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

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Константин Сидоров · 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.