Заполните таблицу истинности для функции ¬A ∨¬ B . В качестве ответа укажите, что должно стоять вместо чисел x, y,z, и t.

A B
0 0 x
0 1 y
1 0 z
1 1 t

x = ?

y = ?

z = ?

t = ?

Можно написать о протоколах, которые используются мессенджерами, дать кратенькое описание этих протоколов, серверов, которые используют протоколы. Потом нужно упомянуть шифрования сообщений, на каком уровне они используются  (на уровне месс, сервера или к-л. другом). Отдельно можно написать о самом популярном месс. - о скайпе. Ну, и в конце, о всяких наворотах, которыми обрастают месс., наприм. у мэйл-агента - встроенные игры, поддержка веб-камер, или, допусчтим, темы интерфейсов, поддержка офлайн-сообщений...
Вот, как-то так.

Удачной учёбы!

Program asd;
Var A,B:array [1..250,1..250] of integer;
    i,j,n,m,k: integer;
BEGIN
 Write('Введите n: '); Readln(n); 
 Write('Введите m: '); Readln(m); 
for i:= 1 to n do 
 begin 
  for j:= 1 to m do   
 begin   
  A[i,j]:=random(10);   
  write(A[i,j]:3); 
  end; 
  writeln;
  end;
writeln;
for i:= 1 to n do 
    for j:= 1 to m do 
  begin   
 If  A[i,j] mod 2=1 then inc(k); 
   end;    
      If n=m then 
   begin     
Writeln('Транспонирование: ');   
  for i:=1 to n do
  begin 
  for j:=1 to m do   
 begin   
  write(A[j,i]:3);   
  B[i,j]:=A[i,j];   
 end; 
 writeln; 
 end; writeln; 
    end   
  else
Writeln('Кол-во нечетных элементов: ',k);
END.