1.
X&¬M&¬HvX&M&HvX&¬M&H
Упростим:
<span>X&¬M&¬HvX&&<span>H
2.
</span></span><span>Не все слоны серые и пять не равно дважды два
</span>3 и 4 смотреть прикрепленные файлы.
Лист Excel живой, можно подставить свои данные.
Таблицу истинности подставляем в лист СДНФ3, получаем формулу, упростив, получим результат.
Лист защищен без пароля, чтобы случайно не повредить формулы. Снимаем защиту, копируем элементы, получаем результат.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrReal(4);
Writeln('Max=',a.Max,', min',a.Min)
end.
<u>Пример:</u>
-45.4 18 0 4.17
Max=18, min-45.4
Var
a, b, c, d: byte;
begin
for a := 1 to 5 do
begin
for b := 1 to 5 do
begin
c := (c = 10 ? 1 : c + 1);
write((a mod 10 = 1 ? c : 16 - c):3);
end;
writeln();
end;
end.
#include <stdio.h>
void sort(int in[], int a, int b) {
int i,j,mode;
if (a >= b) return;
for (i=a, j=b, mode=1; i < j; mode >0 ? j-- : i++)
if (in[i] > in[j]) {
int c = in[i];
in[i] = in[j];
in[j] = c;
mode = -mode;
}
sort(in, a, i-1);
sort(in, i+1, b);
}
int main(void) {
int m = 0; int x = 0;
int a[10] = {-8,-10,5,6,-10,-3,9,-7,-7,-8};
printf("\nИзначальный массив: ");
for (int i = 0; i < 10; i++) {
printf("%i ", a[i]);
}
printf("\nМетод обменом (пузырьком): ");
for (int i = 0; i < 9; i++) {
for (int j = 0; j < 9-i; j++) {
if (a[j] < a[j + 1]) {
m = a[j];
a[j] = a[j + 1];
a[j + 1] = m;
}
}
}
for (int i = 0; i < 10; i++) {
printf("%i ", a[i]);
}
printf("\nМетод вставкой: ");
for (int i = 0; i < 10; i++) {
x = a[i];
m = i;
while (m > 0 && a[m - 1] > x) {
a[m] = a[m - 1];
m = m - 1;
}
a[m] = x; }
for (int i = 0; i < 10; i++) {
printf("%i ", a[i]);
}
printf("\nМетод выбором: ");
for (int i = 0; i < 10; i++) {
m = i;
for (int j = i + 1; j < 10; j++) {
if (a[j] > a[m]) {
m = j;
}
}
x = a[i];
a[i] = a[m];
a[m] = x;
}
for (int i = 0; i < 10; i++) {
printf("%i ", a[i]);
}
printf("\nМетод разделением (qsort): ");
sort(a, 0, 9);
for (int i = 0; i < 10; i++) {
printf("%i ", a[i]);
}
return 0;
}
Var a, b, i, c :integer;
begin
<span> read (a, b); </span>// вводим a и b
for i:=1 to 5 do
begin
<span> c:=random(b-a)+a; </span>// присваиваем рандомные числа в заданномпромежутке
<span> writeln (c); </span>// выводим число
end;
<span>end.</span>