Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Лабораторная работа3

.PAS
Скачиваний:
37
Добавлен:
02.05.2014
Размер:
578 б
Скачать
uses crt;
type a=set of char;
b=set of char;
var
a1:a;
b1:b;
vyv: string;
i,j,n:integer;
el,x:char;
begin
a1:=[];
b1:=[];
writeln('vvedite kolichestvo elementov mnojestva');
readln(n);
for i:=1 to n do
begin
writeln('vvedite element mnojestva');
readln(el);
if not(el in a1) then
a1:=a1+[el];
end;
writeln('vvedite x: ');
readln(x);

if x in a1 then
begin
b1:=a1-[x];
writeln('x soderjitsya v a1, sformirovano novoe mnojestvo b1=a1-[x]')
end
else
writeln('x ne soderjitsya v mnojestve a1');
readkey;
end.