var
s: set of byte;
n: longint;
begin
ReadLn(n);
s := [];
while n > 0 do
begin
s := s + [n mod 10];
n := n div 10;
end;
for n := 0 to 9 do
if not(n in s) then
WriteLn(n);
end.
множества
Заданы n натуральных чисел. Для каждого введенного числа напечатать в порядке роста все цифры, которые не входят в десятичную запись этого числа. Например, для числа 16 ответ: 2,3,4,5,7,8,9,0.
на сколько я понимаю то для получения результата надо от одного множества отнять другое....но при этом действии Паскаль все время мне выдает ошибку...требует какую-то скобку......возможно я как-то не так это делаю.....не подскажете как это сделать и вывести результата на экран!
спасибо!)
может быть вы нам покажете свой код, Инночка? и мы исправим ошибки? чтобы мы не думали, что вы хотите, чтобы задачу решили за вас...
Камрад squirL очень культурный человек. Поэтому, он вежливо завуалировал некую иную сущность - словом "код". Но он же весьма невнимателен, так как Inna Lazareva не может показать нам свой. Только свою. А что свою? Можно было бы сказать "писульку", но это может быть неверно истолковано всякими извращенцами. :D Но демонстрация необходима, чтобы мы не думали, что вы ленивый, лохматый, небритый студент-халявщик, и не начали относиться к вам с должным непочтением...
о, а куда мой пост делся? )
Я думаю нет у неё кода. Задачка то простая - либо вообще ничего не понимать либо все сделать самому... Я добрее вас. Помогу)))
Ибо воистену! :)
А я не добрый человек - и дабы камрад не плодил халявщиков в разделе, нарушение положенное Инночке, выдам ему.