Задача в паскале.

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

Question

Информатика

Феофила

18 мая, 17:09

Задача в паскале.

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

+2

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