Дано натуральное число N ,и последовательных целых чисел,каждое из которых лежит в диапазоне от 0 до 255.Определить все числа из заданного интервала,которые не входят в последовательность от 0 до 255(Паскаль.Решить с использованием множества и рандома)
139
ОТВЕТЫ
Var a,n,i:byte;
mn:set of byte;
begin
readln(n);
mn:=[];
writeln(Числа последовательности:);
for i:=1 to n do
begin
a:=random(256);
write(a, );
mn:=mn+[a];
end;
writeln;
writeln(Числа, которые не входят в последовательность:);
for i:=0 to 255 do
if not (i in mn) then write(i, );
writeln;
end.
Пример (для диапазона от 0 до 25):
Числа последовательности:
6 23 17 12 17 4 22 25 3 8
Числа, которые не входят в последовательность:
0 1 2 5 7 9 10 11 13 14 15 16 18 19 20 21 24
mn:set of byte;
begin
readln(n);
mn:=[];
writeln(Числа последовательности:);
for i:=1 to n do
begin
a:=random(256);
write(a, );
mn:=mn+[a];
end;
writeln;
writeln(Числа, которые не входят в последовательность:);
for i:=0 to 255 do
if not (i in mn) then write(i, );
writeln;
end.
Пример (для диапазона от 0 до 25):
Числа последовательности:
6 23 17 12 17 4 22 25 3 8
Числа, которые не входят в последовательность:
0 1 2 5 7 9 10 11 13 14 15 16 18 19 20 21 24
123
Отв. дан
Bordin
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Siralis
Скласти програму та таблицю в С++по темі: "Формати введення-виведення ...
2019-01-23 04:35:29
Granirius
Подскажите, пожалуйста.((( Даю 50 баллов. ...
2019-01-23 04:35:09
Кассиан
Подскажите пожалуйста, в Паскаль абс, 2 и 4 задания ...
2019-01-23 04:33:54
Георгий
Информатика
2. Перевести в двоичную систему счисления: 641,6(8). ...
2019-01-23 04:33:17