Уровень A. Перейдите на Лист 1 и постройте таблицу истинности логической функции F = (A и не B) или - id1328596220230128 от kublahan 28.01.2023 16:48

Question

Информатика: Уровень A. Перейдите на Лист 1 и постройте таблицу истинности логической функции F = (A и не B) или C Уровень B. Перейдите на Лист 2 и постройте таблицу истинности логической функции F = (A и B) ⇒ C Предварительно представьте операцию «импликация» через операции ИЛИ и НЕ, используя формулу . Уровень C. Перейдите на Лист 3 и определите, какие из трёх логических функций. F1 = (A и B) ⇒ C F2 = (A и не C) ⇒ (не B) F3 = (не C) ⇒ (не (A и B)) совпадают с функцией, которая задана приведённой таблицей истинности

kublahan · Accepted Answer

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
uses GraphABC;

procedure OutLightGreen(n:integer);
begin
var OldColor:=FontColor;
SetFontColor(clLightGreen);
Write(n:5);
SetFontColor(OldColor)
end;

begin
var a:=MatrixRandom(10,14,-180,320);
var m:=ReadInteger('n=');
Writeln;
SetFontColor(clWhite);
Font.Style:=fsBold; Font.Name:='Courier';
Brush.Color:=clBlack; Window.Clear(clBlack);
var k:=0;
for var i:=0 to 9 do begin
    for var j:=0 to 13 do
      if a[i,j]>m then begin
        Inc(k); OutLightGreen(a[i,j]) end
      else Write(a[i,j]:5);
    Writeln
    end;
SetFontColor(clRed);
Writeln('Количество элементов равно ',k)
end.

Дана матрица 10x14, заданная случайными числами на интервале [-180; 320]. подсчитать количество элем

Дана матрица 10x14, заданная случайными числами на интервале [-180; 320]. подсчитать количество элем

MOGZ ответил