Запишите словами или в символьном виде условия, которое определят множество: (1,3,5,7,9)
(5,6,7)
(a,e,ё,и,o,y,ы,э,ю,я)
(17,34,51,68,85)
(00,01,10,11)
(0,1,2,3,4,5,6,7,8,9,A,B,C)
отрезок [0; 1]
Для каждого из следующих множеств выберете универсальное множество и запишите дополения А
А = (1,3,5,7,9);
A = (a,e,и,o,y,ы,э,ю,я)
A = (17,34,51,68,85
A = (00,10)
A = (0,1,2,3,4,5,6,7,8,9,A,B,C)
A = отрезок [0,1 ]
Для пары множеств определите пересечение А * B
A = {1,3,5,7,9} B= {1,5,6,9,12}
A = {а,б,в,г,д,е,ё,ж} B= {а,е,ё,и,о,у,ы,э,ю,я}
A = {17,34,51,68,85} B= {17,34,51,68,85}
A = {00,10} B= {01,11}
A = {0,1,2,3,4,5,6,7,8,9,A,B,C} B= {A,B,C,D,E,F,G,H}
A = [5;15] B= [10;20]
A = [5;15] B= [0;20]
A = [5;15] B= [10;12]
A = [;15] B= [20;30]
Для пары множеств определите объединение A + B
A = {1,3,5,7,9} B= {1,5,6,9,12}
A = {а,б,в,г,д,е,ё,ж} B= {а,е,ё,и,о,у,ы,э,ю,я}
A = {17,34,51,68,85} B= {17,34,51,68,85}
A = {00,10} B= {01,11}
A = {0,1,2,3,4,5,6,7,8,9,A,B,C} B= {A,B,C,D,E,F,G,H}
A = [5;15] B= [10;20]
A = [5;15] B= [0;20]
A = [5;15] B= [10;12]
A = [;15] B= [20;30]
Из нее вычитаем площадь двери A×B и полученную площадь умножаем на количество теплиц N.
Получаем S=(π×R×(C+R)-А×В)×N
A, B, C, R, N - это исходные данные
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
begin
var n:=ReadInteger('Количество теплиц:');
var a,b,c,r:real;
Write('Введите радиус теплицы и её длину, м: '); Read(r,c);
Write('Введите размеры двери теплицы, м: '); Read(a,b);
Writeln('Потребуется плёнки, м: ',(pi*r*(c+r)-a*b)*n:0:2)
end.
Пример
Количество теплиц: 7
Введите радиус теплицы и её длину, м: 3.5 18.4
Введите размеры двери теплицы, м: 1.1 1.9
Потребуется плёнки, м: 1670.99
var a: array[1..maxn] of integer;
skv,prod,gr,i: integer;
begin
writeln('введите ',maxn,' чисел');
skv:=0; prod:=1;
gr:=0;
for i:=1 to maxn do
begin
write(i,': '); readln(a[i]);
if a[i]<0 then skv:=skv+a[i]*a[i];
if (a[i] mod 2 = 0) and (i mod 2 = 0) then
prod:=prod*a[i];
if abs(a[i])>100 then gr:=gr+1;
end;
writeln('сумма квадратов отрицательных: ',skv);
writeln('произведение четных на четных местах: ',prod);
writeln('больше 100 по модулю: ',gr);
end.
введите 15 чисел
1: 151
2: -231
3: 104
4: 19
5: 36
6: -112
7: 5
8: 8
9: 11
10: 13
11: 45
12: 5
13: 6
14: 17
15: 19
сумма квадратов отрицательных: 65905
произведение четных на четных местах: -896
больше 100 по модулю: 4