Максимальное количество элементов в объединении множеств получится в случае, когда в этих множествах нет одинаковых элементов. Это количество = 18+110 = 128
k = float(input('Введите число для сравнения: '))
print('Вводите числа в одной строке через пробел:')
a = list(map(float,input('Ввод: ').split()))
m,r,b = 0,0,0
for i in a:
if i < k:
m += 1
if i == k:
r += 1
if i > k:
b += 1
print('Меньше ',k,':',m,' чис.')
print('Равно ',k,':',r,' чис.')
print('Больше ',k,':',b,' чис.')
"-" влияет собственно только на знак перед полученным результатом.
=
Program gt2;
var i,j,s:integer;
a:array[1..4,1..4]of integer;
begin
randomize;
for i:=1 to 4 do
for j:=1 to 4 do
a[i,j]:=random(7)+12;
for i:=1 to 4 do
begin
s:=0;
for j:=1 to 4 do
s:=s+a[j,i];
writeln(s);
end;
<span>end.
program gt3;
var i,j,s:integer;
a:array[1..7,1..7]of integer;
begin
randomize;
for i:=1 to 7 do
for j:=1 to 7 do
a[i,j]:=random(7)+12;
for i:=1 to 7 do
begin
s:=0;
for j:=1 to 7 do
if(a[j,i]<14)then s:=s+1;
writeln(s);
end;
<span>end.
program gt4;
var i,j,p:integer;
a:array[1..3,1..3]of integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
read(a[i,j]);
for i:=1 to 3 do
begin
p:=a[i,1];
a[i,1]:=a[i,2];
a[i,2]:=p;
end;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(a[i,j],' ');
end;
writeln;
end;
<span>end.
</span></span></span>
2 в 10 степени = 1024 кб
1024 кб = 1024000 байт
——————————————
2 в 8 степени = 256
256 Гб = 2048000000000 бит