Сказывание: (x < 5) и не (х < 4)? вариант 1для какого из значений числа хистинно высказывание: 1) 52) 23) 34) 4 2для какого из имён истинно высказывание: не (первая буква гласная) и не (последняя буква согласная): 1) анна2) роман3) олег4) татьяна 3для какого из чисел истинно высказывание: (первая цифра чётная) и не(сумма цифр чётная)? 1) 6482) 4523) 3574) 123 4переведите двоичное число 1100011 в десятичную систему счисления. 5переведите число 305 из десятичной системы счисления в двоичную систему счисления. сединиц содержит полученное число? в ответе укажите одно число — количество единиц. 6постройте таблицы истинности для логических выражений: олькоа) a& b. - a& bб) (а. в) & (-a. b)​

1)

const
  n=40;
var
  a:array [1..n] of integer;
  i,k:integer;
begin
  Randomize;
  k:=0;
  Writeln('Исходный массив');
  for i:=1 to n do begin a[i]:=random(63)+20; Write(a[i],' ') end;
  Writeln; Writeln('Четные элементы, кратные 3');
  for i:=1 to n do
    if a[i] mod 6=0 then begin Inc(k); Write(a[i],' ') end;
  Writeln; Writeln('Отобрано элементов: ',k)
end.

Пример
Исходный массив
43 49 27 45 57 20 54 22 74 79 57 64 30 41 67 58 36 68 79 46 28 74 61 21 80 57 50 24 80 36 27 57 38 38 41 71 50 69 39 48
Четные элементы, кратные 3
54 30 36 24 36 48
Отобрано элементов: 6

2)

const
  n=20;
var
  a:array [1..n] of integer;
  i,imin:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  imin:=1;
  for i:=1 to n do begin
    a[i]:=random(351)+20;
    Write(a[i],' ');
    if a[i]<a[imin] then imin:=i
    end;
  Writeln;
  Writeln('Минимальный элемент a[',imin,']=',a[imin])
end.

Пример
Исходный массив
292 54 248 310 181 210 263 284 255 156 177 340 173 39 108 144 270 40 318 155
Минимальный элемент a[14]=39

Program pascal;
var  a, b, q, w, e, r, t: integer;  SQR:  string;begin  q:=3;  w:=5;  e:=7;  r:=9;  t:=11;  SQR:=SQR;  writeln('Введите SQR то бы увидеть все квадраты и произведение всех квадратов');    write('Введите нечетные числа. От 3 до 11: ');   read(SQR);   if SQR=SQR then    writeln('3*3= ', q*q);    writeln('5*5= ', w*w);    writeln('7*7= ', e*e);    writeln('9*9= ', r*r);    writeln('11*11= ', t*t);    writeln('Произведения всех квадратов: ', q*q*w*w*e*e*r*r*t*t);  read(a);    if a=11 then      writeln('Произведение квадратов: 11*11')      else     if a=9 then      writeln('Произведение квадратов: 9*9')      else    if a=7 then      writeln('Произведение квадратов: 7*7')      else    if a=3 then      writeln('Произведение квадратов: 3*3')      else    if a=5 then      writeln('Произведение квадратов: 5*5')      else     writeln('Доступно: 3, 5, 7, 9, 11'); end.