Очень Составить разветвляющиеся алгоритмы для следующих пословиц 1. Без друга в жизни туго. 2. Любишь кататься, люби и саночки возить. 3. Готовь сани летом, а телегу зимой.​

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

//Pascal ABC.NET v3.1 сборка 1172

Var
 ma:array of array of integer;
 i,j,n,r:integer;
begin
 readln(n);
 setlength(ma,n+1);
 for i:=1 to n do
 setlength(ma[i],n+1);
 writeln('Matrix:');
 for i:=1 to n do
 begin
  writeln;
  for j:=1 to n do
   begin
    ma[i,j]:=random(n);
    write(ma[i,j]:4);
   end;
 end;
 for i:=1 to n do
  for j:=i+1 to n do
  r:=r+ma[i,j];
 r:=r div 3;
 writeln;
 if odd(r) then writeln('Да') else writeln('Нет');
end.

Пример ввода:
4
Пример вывода:
Matrix:

   0   1   3   3
   3   0   0   3
   2   3   0   2
   3   0   2   3
Нет