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

Question

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

Информатика

5 ноября, 20:59

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

+4

Ответы (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.