М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
marylps45
marylps45
04.08.2020 07:20 •  Информатика

, нужно построить таблицы истинности для следующих выражений(во вложении !


, нужно построить таблицы истинности для следующих выражений(во вложении !

👇
Ответ:
lunova0921
lunova0921
04.08.2020

1)

A B ¬B A∨¬B (A∨¬B)∧A

0 0 1 1                  0

0 1 0 0                  0

1 0 1 1                  1

1 1 0 1                  1

2)

A B C A∧B ¬(A∧B) ¬(A∧B)∨C

0 0 0  0              1                   1

0 0 1  0              1                    1

0 1 0  0              1                    1

0 1 1  0              1                     1

1 0 0  0              1                    1

1 0 1  0              1                    1

1 1 0  1              0            0

1 1 1  1              0            1

4,6(14 оценок)
Открыть все ответы
Ответ:
tayatoadvel
tayatoadvel
04.08.2020
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
  var imin:=a.IndexMin;
  Writeln('Номер минимального элемента- ',imin+1);
  Writeln('Элементов, равных минимальному- ',
      a.Where(x->x=a[imin]).Count-1)
end.

Пример
n= 50
-13 17 18 10 -6 13 16 -12 -15 10 18 -7 -20 18 14 14 11 20 4 4 -10 6 -20 11 -2 4 7 -3 -20 -18 -6 11 -15 -8 16 11 -13 3 -5 2 6 7 -10 11 8 19 1 -11 16 -10
Номер минимального элемента- 13
Элементов, равных минимальному- 2
4,8(57 оценок)
Ответ:
esken576
esken576
04.08.2020
Вот: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 const   n=5; var   a: array[1..n,1..n] of integer;   i,j,s: integer; begin   s: =0;   randomize;   for i: =1 to n do     begin       for j: =1 to n do         begin           a[i,j]: =random(10);           write(a[i,j]: 4);           if (i+j) mod 3=0 then             s: =s+a[i,j];         end;       writeln;     end;   writeln('s=',s); end.
4,8(43 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ