Написать в возрастающем порядке все цифры не входящие в запись данного числа

@startsdren · Регистрация: 31.03.2009

Author24 — интернет-сервис помощи студентам

Написать в возрастающем порядке все цифры не входящие в запись данного числа.

@Inadequate · 31.01.2010, 22:29

Pascal

var
  n,temp:integer;
  m: set of byte;
begin
  ReadLn(n);
  temp:=n;
  while temp<>0 do
  begin
    include(m,temp mod 10);
    temp:=temp div 10
  end;
  for temp:=0 to 9 do
    if not (temp in m) then
      write(temp);
  ReadLn
end.

Добавлено через 2 минуты
Если через строки можно, то так

Pascal

var
  s:string;
  i:char;
begin
  ReadLn(s);
  for i:='0' to '9' do
    if Pos(i,s)=0 then
      Write(i);
  ReadLn
end.

@startsdren · 31.01.2010, 22:50 **[ТС]**

Спасибо ты лучший

@startsdren 6 / 5 / 1 Регистрация: 31.03.2009 Сообщений: 61
		1
	Написать в возрастающем порядке все цифры не входящие в запись данного числа 31.01.2010, 22:23. Показов 1465. Ответов 2 Метки нет (Все метки) Написать в возрастающем порядке все цифры не входящие в запись данного числа. 0

@startsdren 6 / 5 / 1 Регистрация: 31.03.2009 Сообщений: 61
	31.01.2010, 22:50 [ТС]	3
	Спасибо ты лучший 0

Написать в возрастающем порядке все цифры не входящие в запись данного числа

Решение