Технічні характеристика складових комп'ютера​

Pascal

var

 ar: array of integer;

 i, j, a, b, k, n :integer;

begin

(* Дан массив целых чисел (n = 20), *)

(* заполненный случайным образом числами из промежутка [-45, 95].*)

randomize;

 n:=20;

 setlength(ar, n);

 for i := 0 to n-1 do begin

   ar[i]:= random(140)-45;

   write(ar[i],' ');

 end;  

 writeln;

(* Удалить из него все элементы, кратные 7 и *)

(* принадлежащие промежутку [a, b] (a и b вводить с клавиатуры)*)  

 writeln('введите диапазон [a,b]');

 readln(a,b);

 i:=0;

 while i <= n-1 do

   if (ar[i] mod 7 = 0) and (ar[i]>=a) and (ar[i]<=b)then begin

     for j := i+1 to n - 1 do

       ar[j-1] := ar[j];

     n := n - 1

   end

   else

     inc(i);

  setlength(ar, n);

  for i := 0 to n-1 do begin

    write(ar[i],' ');

  end;

  writeln;

(* Вставить число k между всеми соседними элементами, которые образуют пару *)

(* элементов с одинаковыми знаками k вводить с клавиатуры).*)  

 writeln('введите k');

 readln(k);

 i := n - 1;

 while i > 0 do begin

   if ar[i]*ar[i-1]>0 then begin

     inc(n);

     SetLength(ar, n);

     for j := n - 1 downto i do

       ar[j] := ar[j-1];

     ar[i] := k;

   end;  

   dec(i);

 end;  

 for i := 0 to n-1 do

   write(ar[i],' ');

end.

a) 1

б) 1

в) 1

г) 0

Объяснение:

(х < 4) & (х > 2) v ¬(x > 2)

a) x = 1

(1 < 4) & (1 > 2) v ¬(1 > 2) = 1 & 0 v ¬0 = 0 v ¬0 = 0 v 1 = 1

б) х = 2

(2 < 4) & (2 > 2) v ¬(2 > 2) = 1 & 0 v ¬0 = 0 v ¬0 = 0 v 1 = 1

в) х = 3

(3 < 4) & (3 > 2) v ¬(3 > 2) = 1 & 1 v ¬1 = 1 v ¬1 = 1 v 0 = 1

г) х = 4

(4 < 4) & (4 > 2) v ¬(4 > 2) = 0 & 1 v ¬1 = 0 v ¬1 = 0 v 0 = 0

¬ (НЕ) - обратно исходному высказыванию

& (И) - истинно, когда истины оба исходных высказывания

∨ (ИЛИ) - ложно, когда ложны оба исходных высказывания