Предмет: Информатика,
автор: Дашуля999666
Задано число. Определить, какие цифры не входят в это число. Решить в Паскале с помощью множеств.
Ответы
Автор ответа:
0
var a,i:integer; mn:set of 0..9;
begin
write('a = '); readln(a);
mn:=[];
while a>0 do
begin
mn:=mn+[a mod 10];
a:=a div 10;
end;
writeln('В числе нет следующих цифр:');
for i:=0 to 9 do
if not(i in mn) then write(i:2);
writeln;
end.
Пример:
a = 1356
В числе нет следующих цифр:
0 2 4 7 8 9
begin
write('a = '); readln(a);
mn:=[];
while a>0 do
begin
mn:=mn+[a mod 10];
a:=a div 10;
end;
writeln('В числе нет следующих цифр:');
for i:=0 to 9 do
if not(i in mn) then write(i:2);
writeln;
end.
Пример:
a = 1356
В числе нет следующих цифр:
0 2 4 7 8 9
Похожие вопросы
Предмет: Русский язык,
автор: 555666oisha
Предмет: Английский язык,
автор: kira1528
Предмет: Алгебра,
автор: Travis1Phelps
Предмет: Литература,
автор: kamik287
Предмет: Математика,
автор: Аноним