Выводит мощность 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.

202

420

Посмотреть ответы 2

Ответы на вопрос:

Кейси001

Информатика

4,4(32 оценок)

Если в требуется найти количество элементов в множестве y, то это можно сделать так: y: =(x2**x2)+(x1*x3)); s: =0; for i: =1 to 100 do if (i in y) then begin writeln('элемент ',i,' входит в множество'); s: =s+1; end; writeln('мощность y: ',s); множество р для этого не нужно!

IlyaBondarenko

Информатика

4,5(41 оценок)

Program array2d; var v_range, v_neg, i, j, n: integer; array: array of array of integer; i_range, i_neg: array[1..2] of integer; begin randomize; write('введіть n: '); readln(n); setlength(array, n, n); write('введіть а та b: ); readln(a, b); for i: = 1 to n do for j: = 1 to n do array(i, j) : = random(100); for i: = 1 to n do for j: = 1 to n do begin if array(i, j) in a..b then begin if assigned(v_neg) then break; {перевірка, чи є негативне значення знайденим} v_range : = array(i, j); i_range[1] : = i; i_range[2] : = j; end; if array(i, j) < 0 then begin if assigned(v_range) then break; v_neg : = array(i, j); i_neg[1] : = 1; i_neg[2] : = 2; end; end; if assigned(v_range) and assigned(v_neg) then begin array(i_range[1], i_range[2]) : = v_neg; array(i_neg[1], i_neg[2]) : = v_range; end; writeln('виконано.'); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.