Информатика, опубликовано 2018-08-22 23:59:09 by Гость
Задано число. Определить, какие цифры не входят в это число. Решить в Паскале с помощью множеств.
Ответ оставил Гость
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
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на