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

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

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

Код к задаче: «Напечатать элементы множества с определением их числа - Pascal ABC»

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.300 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы