Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal].Множества.Вывод на экран

Автор: kot070 2.6.2013, 14:12

Здраствуйте, как сделать вывод на экран множесств х1, х2, х3, у, у1...

Код


program lab1;
var x1,x2,x3,y,y1:set of byte;
     i:byte;
begin
x1:=[1..20];
x2:=[10..30];
x3:=[];
for i:=1 to 11 do
x3:=x3+[2*i-1];
y:=((x1+x2)*(x1+x3))-(x2+x3);
y1:=[];  
for i:=1 to 30 do
if (i in y)and(i mod 3<>0) then y1:=y1+[i];
if i in y1 then write(i,'');
writeln;
end.