Поделитесь своими знаниями, ответьте на вопрос:
1.переместительный(коммутативный)закон: Для логического умножения:A & B= B &A;Для логического сложения :A v B= B v A.2.Сочетательный (ассоциативный )закон: Для логического умножения:(A & B ) & C= A & ( B & C); Для логического сложения:(A v B) v C=A v ( B v C3. Распределительный( дистрибутивный) закон:Для логического умноженияА&(B v C) = ( A & B ) v ( A & C )Для логисческго сложения:A v ( B & C ) = (A v B ) & ( A v C)4.Закон двойного отрицания:Ā=AДвойное отрицание исключает отрицание.5.Закон исключенного третьего:.для логического умножения:А & Ā= 0;Для логического сложения:А v Ā= 16. Закон повторения :.для логического умножения А & А = А;.для логического сложения:А v A = A.7.Законы операций с 0 и 1;.для логического умножения;A & 0 = 0; A & 1 = A;.для логического сложения :А v 0=A ; A v 1 = 1.
const
handsfree = false;
nmax = 10;
random_min = -50;
random_max = 50;
var
a: array[0..nmax] of real;
i, n: integer;
sum, x: real;
begin
{ввод массива}
n := nmax;
if handsfree then begin
for i := 0 to n do
begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
end
else begin
for i := 0 to n do
readln(a[i]);
end;
writeln();
{подсчет суммы}
write('x = ');
readln(x);
sum := a[n];
for i := n - 1 downto 0 do
sum := sum * x + a[i];
writeln('S = ', sqrt(sum));
end.