Выводит мощность 100 надо чтоб выводило 2 при таком условии ввода чисел: x1{20,26,34,45,58} x2{20,26,45,30,92} x3{20,45,15,30,92} program ex1; var x1,x2,x3,y,p: set of 1..100; s,a,i: integer; begin x1: =[ ]; x2: =[ ]; x3: =[ ]; writeln('вв. 5 элементов множества x1 через enter: '); for i: =1 to 5 do begin readln(a); x1: =x1+[a]; end; writeln('вв. 5 элементов множества x2 через enter: '); for i: =1 to 5 do begin readln(a); x2: =x2+[a]; end; writeln('вв. 5 элементов множества x3 через enter: '); for i: =1 to 5 do begin readln(a); x3: =x3+[a]; end; writeln; y: =(x2**x2)+(x1*x3)); p: =[ ]; s: =0; for i: =1 to 100 do begin s: =s+1; p: =p+[i]; if (i=20) or (i=30) then writeln('элемент ',i,' входит в множество'); end; for i: =1 to 100 do for i in p then write(i,' '); writeln('мощность p: ',s); readln; end.

hehsggsvsg    2   09.07.2019 17:40    2