Напечатать элементы множества с определением их числа - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Организовать процедуру printset, печатающую элементы множества А с определением их числа.

Решение задачи: «Напечатать элементы множества с определением их числа»

textual
Листинг программы
uses crt;
type mnz=set of byte;
procedure printset(m:mnz);
var i:byte;
begin
for i:=0 to 255 do
if i in m then  write(i:4);
writeln;
end;
var a:mnz;
    i,k,x:byte;
begin
randomize;
repeat
write('Введите мощность множества k от 1  до 255 k=');
readln(k);
until k in [1..255];
a:=[];
for i:=1 to k do
 begin
  repeat
  x:=random(256);
  until not(x in a);
  a:=a+[x];
 end;
printset(a)
end.

Оцени полезность:

10   голосов , оценка 4.3 из 5
Похожие ответы