Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. Сначала вычисляется исходной цепочки символов: если она чегна, то в середину непочки символов баняется символ А. а если нечетна, то в начало цепочки добавляется си Б. В полученной цепочке символов каждая буква заменяется буквой сущей за ней в русском алфавите (А на 5. 5-на В и т 2. 3 Я-на А). Получившаяся таким образом цепочка является результатом работы алгоритма Например, если неходной была непочка ВРМ 1 результатом работы алгоритма будет цепочка BF CH, а если исходной была цепоч Дом работы алгоритма будет цепочка РБЕ. Лам одон ФТОР Какая цепочка символов получится если к данной цепочка применить описаный алгоритм дважды(T.C применить алгоритм к данной цепочке а затем результату вновь применить алгоритм русский

1)
( (x ∈ P) /\ (x ∈ А)) → ( (x ∈ Q) /\ (x ∈ А)) = 1
-( (x ∈ P) /\ (x ∈ А)) \/ ( (x ∈ Q) /\ (x ∈ А)) = 1 (убрали стрелочку)
-(x ∈ P) \/  -(x ∈ А) \/ ((x ∈ Q) /\ (x ∈ А)) = 1 (правило де Моргана)
-(x ∈ P) \/  (-(x ∈ А) \/ (x ∈ Q)) /\ (-(x ∈ А) \/ (x ∈ А)) = 1
-(x ∈ P) \/  -(x ∈ А) \/ (x ∈ Q) = 1
x ∈ (-P U Q U -A) = 1
т.е. -P U Q U -A = (-infinity; +infinity)
-P U Q = (-infinity; 39) U (58; +infinity)
нужно чтоб -А покрыло оставшийся кусок [39; 58] т.е. А не должно содержать [39; 58]
из предложенных это 1)  [5, 20]

2) Алфавит из 18 символов, log(18)/log(2) = 4.16992500144231 {округляем до целого} ~= 5 бит на символ
Вес номера байт = 5бит * 6 / 8 = 3.75 байт {округляем до целого} ~= 4 байт
400 * 4 байт = 1600 байт

3) Комбинаторика - Размещение с повторениями
n - кол-во элементов в наборе (у нас 4)
k - кол-во мест (у нас 5 и 6)
Количество размещений с повторениями = `A(k,n) = n^k
`A(5, 4) + `A(6, 4) = 4^5 + 4^6 = 5 120

В первой задаче находятся все 4-значные числа, а не только симметричные.
Паскаль АВС.

Program  Ilgiz98;
var
  i: integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln('Программа находит 4-значные числа, которые делятся на 27');
  writeln('Список таких чисел:');
  for i:=1000 to 9999 do
    if (i mod 27)=0 then writeln(i);
end.

Program  Ilgiz98;
var
  mass: array [1..20] of integer;
  i, k, n: integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln('Среди элементов массива программа находит числа, которые больше заданного числа N и одновременно кратны 5');
  write('Введите число N ');  readln (n);
  writeln('*** Вычисляю... ***');
  k:=0;
  writeln('Массив чисел:');
  for i:=1 to 20 do
    begin
     mass[i]:=random(1000)-500;
     writeln(mass[i]);
     if (mass[i]>n) and ((mass[i] mod 5)=0) then k:=k+1;
  end;
  writeln();
  writeln('Всего найдено ',k,' таких чисел');
end.