Вопрос по информатике:
Задано число. Определить, какие цифры не входят в это число. Решить в Паскале с помощью множеств.
- 01.09.2017 21:55
- Информатика
- remove_red_eye 2909
- thumb_up 31
Ответы и объяснения 1
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
- 02.09.2017 08:39
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.