Ответ:
Смотри картинку
Объяснение:
1. НЕ А (значение обратно исходному)
А = 0 НЕ А = 1
А = 0 НЕ А = 1
А = 1 НЕ А = 0
А = 1 НЕ А = 0
2. А И В (истина (равно 1), когда оба высказывания истина (А = 1 и В = 1))
А = 0 В = 0 А И В = 0 И 0 = 0
А = 0 В = 1 А И В = 0 И 1 = 0
А = 1 В = 0 А И В = 1 И 0 = 0
А = 1 В = 1 А И В = 1 И 1 = 1
3. НЕ А И В (истина (равно 1), когда оба высказывания истина (НЕ А = 1 и В = 1))
НЕ А = 1 В = 0 НЕ А И В = 1 И 0 = 0
НЕ А = 1 В = 1 НЕ А И В = 1 И 1 = 1
НЕ А = 0 В = 0 НЕ А И В = 0 И 0 = 0
НЕ А = 0 В = 1 НЕ А И В = 0 И 1 = 0
4. (А И В) ИЛИ (НЕ А И В) (ложь (равно 0), когда оба высказывания ложь ((А И В) = 0 и (НЕ А И В) = 0))
А И В = 0 НЕ А И В = 0 (А И В) ИЛИ (НЕ А И В) = 0 ИЛИ 0 = 0
А И В = 0 НЕ А И В = 1 (А И В) ИЛИ (НЕ А И В) = 0 ИЛИ 1 = 1
А И В = 0 НЕ А И В = 0 (А И В) ИЛИ (НЕ А И В) = 0 ИЛИ 0 = 0
А И В = 1 НЕ А И В = 0 (А И В) ИЛИ (НЕ А И В) = 1 ИЛИ 0 = 1
avast!
Dr.Web 360 Total Security Kaspersky
Panda Free Antivirus
Norton Internet Security
ESET NOD32 Smart Security
F—Secure Internet Security
Bitdefender Internet Security
AVG Internet Security
Var
y: real;
begin
y := tan(3 * Pi);
y := y * y; {квадрат}
y := y * y; {четвертая степень}
y := (1 - y) / (ln(8) / ln(3));
writeln('y=', y)
end.
Const
<span>n=3; </span>
<span>var a:array[1..n, 1..n] of integer; </span>
<span>i,j,s:integer; </span>
<span>begin </span>
<span>s:=0; </span>
<span>writeln('Введите элементы матрицы'); </span>
<span>for i:=1 to n do </span>
<span>for j:=1 to n do begin </span>
<span>read(a[i,j]); </span>
<span>if i<j then s:=s+a[i,j]; </span>
<span>end; </span>
<span>writeln; </span>
<span>for i:=1 to n do begin </span>
<span>for j:=1 to n do write(a[i,j], ' '); </span>
<span>writeln; </span>
<span>end; </span>
<span>writeln('Сумма всех элементов над главной диагональю = ',s); </span>
<span>end.</span>