<span>& - амперсанд, логическое умножение. 1*1 = 1, 1*0=0
v - логическое сложение. 1+1 = 1, 1+0 = 0, 0+0 = 0
</span>((1 & 1)v 0) & (0v 1) = ((1 * 1) + 0) * (0 + 1) = 1
((0 & 0)v0) & (1 v 1) = <span>((0 * 0) +0) * (1 + 1) = 1</span>
Так как вики не отвечает, могу предположить, что это звуки с глубиной кодирования 1 бит.
Ответ:
1б,байт 1024, КБ 980,мб 1024
Var
a: array[1..20,1..20] of integer;
n,m,i,j,min,jm,x: integer;
begin
randomize;
write('Введите размеры массива: ');
readln(n,m);
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(19)-9;
write(a[i,j]:4);
end;
writeln;
end;
min:=0;
for i:=1 to n do min:=min+a[i,1];
writeln('Сумма элементов 1-го столбца = ',min);
jm:=1;
for j:=2 to m do
begin
x:=0;
for i:=1 to n do
x:=x+a[i,j];
writeln('Сумма элементов ',j,'-го столбца = ',x);
if x<min then
begin
min:=x;
jm:=j;
end;
end;
writeln('Минимальная сумма в ',jm,'-м столбце');
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
if j<>jm then a[i,j]:=a[i,jm];
write(a[i,j]:4);
end;
writeln;
end;
readln;
end<span>.</span>
Задача1. (на паскале давно не программировал, поэтому возможны огрехи, саого паскаля под рукой нет.)
Program zadanie1;
var
a,b,c: real;
begin
wtiteln('Vvedite A');
readln(a);
writeln('Vvrdite B');
readln(b);
writeln('Vvedite C');
readln(c);
if ((a>b)and(b>c))or((a<b)and(b<c)) then
begin
a:=a*2;
b:=b*2;
c:=c*2;
end;
else
begin
a:=a*(-1);
b:=b*(-1);
c:=c*(-1);
end;
writeln('a=');
writeln('b=');
writeln('c=');
end.
Решил исходя из того, что в случае если условие не выполняется значение чисел меняется на обратное по знаку.
Задача 2.
program Zadanie2;
var
A,B,C:integer;
begin
writeln('Введите числa A,B и C: ');
readln(A,B,C);
if (C = B) then
writeln('Номер числа, отличного от остальных: ',1)
else
if (A = C) then
writeln('Номер числа, отличного от остальных: ',2)
else
writeln('Номер числа, отличного от остальных: ',3);
end.
<span>
</span>