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

@Sant441 · Регистрация: 25.05.2011

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

помогите написать программу пожалуйста.

@SuPeR XaKer · 10.09.2011, 12:35

Можно так например:

Pascal

Uses CRT;
Var i:integer;
    m:set of byte;
begin
readln(i);
m:=[];
i:=abs(i);
while i>0 do
begin
 include(m,i mod 10);
 i:=i div 10
end;
for i:=1 to 9 do
if not(i in m) then write(i:3);
readln
end.

@Puporev · 10.09.2011, 12:38

Pascal

for i:=0 to 9 do
if not(i in m) then write(i:3);
readln
end.

ноль тоже цифра....

@SuPeR XaKer · 10.09.2011, 12:40

ноль тоже цифра....

Не по теме:

ой ёёё... Забыл. :)

@Sant441 0 / 0 / 1 Регистрация: 25.05.2011 Сообщений: 23
		1
	Напечатать в возрастающем порядке все цифры, не входящие в запись данного натурального числа 10.09.2011, 09:16. Показов 5437. Ответов 3 Метки нет (Все метки) помогите написать программу пожалуйста. 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	10.09.2011, 12:40	4
	ноль тоже цифра.... Не по теме: ой ёёё... Забыл. :) 0