1.вычислите значение логического выражения (не а или b) и не b при a=0 и b=1. в ответе введите результат - 0 или 1. 2. вычислите значение логического выражения (x ≥ 7) и (x ≤ 2) при x=4. в ответе введите результат - 0 или 1. 3.вычислите значение логического выражения (x > 5) и ((x ≤ 7) или не (x < 9)) при x=8. в ответе введите результат - 0 или 1. 4.вычислите значение логического выражения (x > 5) и ((x ≤ 7) или не (x < 9)) при x=8. в ответе введите результат - 0 или 1.

(~А v B) ^ ~B = (~(0) v (1)) ^ ~(1) = (1 v 1) ^ 0 = 1 ^ 0 = 0
(x >= 7) ^ (X <= 2) = (4 >= 7) ^ (4 <= 2) = 0 ^ 0 = 0
(X > 5) ^ ((X ≤ 7) v ~(X < 9))= (8 > 5) ^ ((8 ≤ 7) v ~(8 < 9))= 1 ^ ((0) v ~(1))= 1 ^ (0 v 0)=0
(x > 5) ^ ((X ≤ 7) v ~(X < 9)) = (8 > 5) ^ ((8 ≤ 7) v ~(8 < 9))= 1 ^ ((0) v ~(1))= 1 ^ (0 v 0)=0

program znanijacom;

const

  n = 5;

type

  mas = array[1..n] of integer;

var

  a: mas;

  i: integer;

  max: integer;

begin

  writeln('введите элементы массива');

  for i:=1 to n do readln(a[i]);

  writeln('вывод элементов массива:');

  for i:=1 to n do write(a[i]:3);

  max := a[1];

  for i:=1 to n do if a[i] > max then max := a[i];

  writeln(' максимальный элемент: ', max);

  writeln('массив после изменений: ');

  for i:=1 to n do begin

   if a[i] = max then a[i] := a[i]*i;

   write(a[i]:3);

   end;

end.

Объяснение:

//Pascal
  var a,b, I, maxsumm, max : integer;
 
  function summdel(x:integer):integer; //результат - сумма делителей х
  var k,sum:integer;
  begin
    sum:=0;
    for k := 1 to x div 2 + 1 do
      if x mod k = 0 then sum:= sum+k;
    summdel:=sum;
  end;
 
  begin
   writeln('Введите границы a,b ');
   readln(a,b);
    maxsumm := 1;
    max := 1;
    for i := a to b do
     begin
        if summdel(i) > maxsumm then
          begin maxsumm:= summdel(i);
            max := i;
          end;
     end;
     writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max)
  end.