Напечатать элементы множества с определением их числа - 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.