niktos30042002
24.12.2021 22:09

1. Множество С содержит элементы: {100, 200, 300, 600, 900}. Множество D содержит элементы: {0, 200, 500, 700, 900}. Сколько элементов содержится только в множестве D, но не содержится в множестве C?
2. На схеме прямоугольник изображает всех учащихся 6 класса, круг Ч – тех, кто любит чёрный шоколад, а круг Б – тех, кто любит белый шоколад. Штриховкой выделено некоторое подмножество этих шестиклассников. Поставьте в соответствие каждому рисунку соответствующее описание выделенного множества.
a) Те, кто любит и чёрный, и белый шоколад
b) Те, кто любит какой-нибудь один вид шоколада: или чёрный, или белый
c) Те, кто не любит ни чёрный, ни белый шоколад
d) Те, кто любит белый и не любит чёрный шоколад

1
2
3
4

3. Элементы множеств заданы точками. Сколько элементов содержит Множество B?

4. Элементы множеств заданы точками. Сколько элементов содержат следующие множества: Пересечение множеств A и B?

5. Множество С содержит элементы: {100, 200, 300, 600, 900}. Множество D содержит элементы: {0, 200, 500, 700, 900}. Сколько элементов содержится в пересечении этих множеств?
6. Элементы множеств заданы точками. Сколько элементов содержат следующие множества: Объединение множеств A и B?

7. Элементы множеств заданы точками. Сколько элементов содержит Множество A?

8. Укажите примеры бесконечных множеств.
1. Натуральные числа
2. Четные числа
3. Цифры
4. Буквы русского алфавита

9. Какие из отношений между множествами верны?
a. P подмножество Q
b. R вложено в P
c. Q подмножество P
d. Q надмножество R
e. Q подмножество R

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
bogachevavalery
16.11.2021 22:58
Program task1;

const
  n = 10;

var
  a :array [1..n] of real;
  i, j :integer;
  min, k :real;

begin

  for i:= 1 to n do
    readln(a[i]);
 
  min:= a[1];
  for i:= 1 to n do
    if a[i] < min then
    begin
      min:= a[i];
      j:= i;
    end;
   
  k:= a[n];
  a[n]:= a[j];
  a[j]:= k;

end.

program task2;

const
  n = 10;

var
  a :array [1..n] of integer;
  i, j, kol :integer;

begin

  for i:= 1 to n do
    readln(a[i]);
 
  kol:= 0;
  for i:= 1 to n do
    if a[i] mod 3 = 0 then
      inc(kol);
  for i:= 1 to n do
    if a[i] = kol then
    begin
      j:= i;
      break;
    end;
  writeln(j);

end.
0,0(0 оценок)
Ответ:
Mimishichka
16.09.2022 07:24
1
DIM A(10, 5)
RANDOMIZE TIMER
FOR I = 1 TO 10
    FOR J = 1 TO 5
        A(I, J) = INT(RND * 10)
        PRINT A(I, J);
        S = S + A(I, J) ^ 2
    NEXT J
    PRINT , S
NEXT I

Исправленный вариант (предыдущий находил только суммы квадратов элементов). Уменьшил размерность массива и значение элементов, что бы через-чур большие числа не появлялись
DIM A(3, 3)
RANDOMIZE TIMER
P = 1
FOR I = 1 TO 3
    FOR J = 1 TO 3
        A(I, J) = INT(RND * 5)
        PRINT A(I, J);
        S = S + A(I, J) ^ 2
    NEXT J
    P = P * S
    PRINT
NEXT I
PRINT
PRINT "P="; P


DIM A(10)
RANDOMIZE TIMER
P = 1
FOR I = 1 TO 10
    A(I) = INT(RND * 20) - 10
    PRINT A(I); " ";
    IF A(I) > O THEN
        S = S + A(I)
        P = P * A(I)
        N = N + 1
    END IF
NEXT I
PRINT
PRINT "S=";
SPRINT "P=";
PPRINT "Kol-vo="; N
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота