Ответ:
А\/В
Объяснение:
_
А \/ В. |. ¬(¬A v B) v ¬C
0. 1. | 1. 1
0. 0. | 0. 0
1. 1. | 1. 1
1. 0. | 1 1
//Листинг программы и скриншот работы - в приложениях.
//Написано на PascalABC.NET но будет работать в простом Паскале
const
max = 12;
var N,i,j:byte;
sum:integer;
ar:array[1..max, 1..max] of integer;
begin
writeln('Вычислить сумму диагональных элементов квадратной матрицы');
write('Введите размер матрицы N = ');
readln(N);
for i:=1 to N do begin
for j:=1 to N do begin
ar[i,j]:=random(-12,12);//любые числа
write(ar[i,j]:6);
end;
writeln();
end;
sum:=0;
for i:=1 to n do
for j:=1 to n do
if ( i = (n-j+1) ) or ( i = j ) then
sum:=sum+ar[i,j];
writeln('Сумма sum = ', sum);
end.
Var
p, i, t : integer;
begin
p := 1;
i := 1;
repeat
read (t);
if t mod 17 <> 0 then p := p * t;
i := i + 1;
until i > 17;
write (p);
end.
Шина адреса, на которой устанавливается адрес требуемой ячейки памяти или устройства, с которым будет происходить обмен информацией;
шина данных, по которой собственно и будет передана необходимая информация; и, наконец,
<span>шина управления, регулирующей этот процесс (например, один из сигналов на этой шине позволяет компьютеру различать между собой адреса памяти и устройств ввода/вывода) .</span>
<span>Program Ploshad_Priamougolnika;
</span>Var<span>a,b : byte; {стороны прямоугольника}
</span><span>S : word; {вычисляемая площадь прямоугольника}</span>
Begin<span>Writeln ('Введите значения сторон прямоугольника');
</span>Readln (a,b);
S:=a*b;
<span>Writeln ('Площадь прямоугольника =',S);
</span><span>End<span>.</span></span>