1. задайте конечное множество. a. военных конфликтов между россией и германией b. военных конфликтов между россией и украиной 2. задайте безконечное множество a. четных положительных чисел b. равнобедренных треугольников 3. изобразите при кругов эйлера отношения между множеством животных. 4. что является пересечением множеств примеры пересечения\. a. точек треугольника и точек окружностей описанных около этого треугольника b. уравнений и неравенств 5. что является объединением множеств примеры объединения\. a. осажденных и освобожденных городов во 2 мировую войну b. чисел кратных 3 и всех нечетных чисел 6. что является дополнением множеств примеры дополнения\. a. выходных дней до всех дней недели b. квадратов до прямоугольников
Информация - это новости, новые факты, знания про объекты и явления окружающей среды.
Компьютер - устройство или система выполнять заданную чётко определённую изменяемую последовательность операций.
Файл - это упорядоченная совокупность данных на внешнем носителе которая имеет имя которое операционная система обрабатывает как единое целое.
Текстовой редактор - это самостоятельная компьютерная программа или компонент программного комплекса.
Графический редактор - это программа позволяющая создавать, просматривать, обрабатывать и редактировать цифровые изображения на компьютере.
var x1,y1,r: real;
begin
Writeln('Введите х1');
readln(x1);
Writeln('Введите у1');
readln(y1);
r:=sqrt(x1*x1+y1*y1);
Writeln('Расстояние от х1 до у1=',r);
end.
2)Program fsgasghfd;
var c,s: real;
a,b: integer;
begin
Writeln('Введите первое целое число');
readln(a);
Writeln('Введите второе целое число');
readln(b);
Writeln('Введите дробное число');
readln(c);
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then
s:=a+b+c
else writeln('Знаки разные');
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then Writeln('Сумма чисел:',s);
end.
3)Program wrqrwqr;
var A: Array[1..100] of integer;
B: Array[1..100] of integer;
C: Array[1..100] of integer;
s,i,h,g: integer;
begin
h:=0;
g:=0;
Writeln('введите размерность массива');
readln(s);
Writeln('Вводится первый массив');
For i:=1 to s do
begin
Writeln('Введите элемент массива №',i);
readln(A[i]);
end;
Writeln('Вводится второй массив');
For i:=1 to s do
begin
Writeln('Введите элемент массива №',i);
readln(B[i]);
end;
For i:=1 to s do begin
If A[i]>B[i] then C[i]:=A[i]
else C[i]:=B[i];
If C[i] mod 2=1 then h:=h+1;
If C[i] mod 2=0 then g:=g+1;
end;
Writeln('Количество нечётных элементов в массиве:',h);
Writeln('Количество чётных элементов в массиве:',g);
end.