Как я любил твои отзывы, глухие звуки, бездны глас = 51 символ (пробелы тоже считаем )
51 * 16 бит = 816 бит/8 =102байт размер файла
Зайди на сайт юкоз там можно бесплатно создать свой сайт
A1
(X<15)*((X>=3)->(X>=7))
Упростим:
(X<15)*( (X < 3) + (X >=7))
X < 15, подходят все варианты, убираем это условие
((X < 3) + (X >=7))
X < 3 нет
X >= 7 есть единственное(8)
ответ:4
А2
A+¬A*B
(A+¬A) * (A+B)
1 * (A + B)
A + B
Ответ: 2
А3
Анализируем первую строку таблицы:
Когда A, B, C одновременно равны нулю, то функция(D) равна "1".
Проверим:
Вариант 1)A&B&¬C = 0*0*1 = 1 - ложь, ответ не подходит
Вариант 2)A+B+C = 0+0+0 = 1 - ложь
Вариант 3)¬A*¬B*¬C = 1*1*1 = 1 - правда
Вариант 4) ¬A+B+C = 1 + 0 +0 = 1 - правда
Подставим в подходящие функции другие элементы таблицы
Вариант 4, строка 2: 1+0+1 = 0 - Ложь.
Рассматривать дальше не имеет смысла, т.к. остался 1 вариант
Ответ:3
Const n=10;
<span>var i,j,k,mx,ind: integer;
</span><span> a: array[1..n] of integer;
</span><span>begin
</span><span> writeln('исходный массив:');
</span><span> randomize;
</span><span> mx:=0;
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(2*n)-n;
</span><span> write(a[i],' ');
</span><span> if a[i]>mx then
</span><span> begin
</span><span> mx:=a[i];
</span><span> ind:=i;
</span><span> end;
</span><span> end;
</span><span> writeln;
</span><span> for i:=ind+1 to n-1 do
</span><span> for j:=i+1 to n do
</span><span> if a[i]>a[j] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
</span><span> writeln('новый массив:');
</span><span> for i:=1 to n do write(a[i],' ');
</span><span>end.
</span>исходный массив:
<span>3 7 7 5 5 -2 -8 -9 -8 6
</span><span>новый массив:
</span><span>3 7 -9 -8 -8 -2 5 5 6 7
</span><span>
</span>
Не знаю как для других,для меня сложная задача,поэтому сделал её как смог