1-Постройте таблицы истинности для следующих логических выражений: 1. A(AB) 2. (AB)
2-Найдите значения выражений:
1. (10)(01)
2. (11)(01)
3-Найдите значение логического выражения ( X  4)  ( X  2) для указанных
значений числа X:
1) 2 2) 3 3) 4 4) 5

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

type
  Ex211a=class
 
  public
 
  constructor(fio,phone:string);
  begin
    var n:=Max(fio.Length,phone.Length);
    Writeln((n+2)*'*');
    Writeln('*',fio.PadRight(n),'*',NewLine,'*',phone.PadRight(n),'*');
    Writeln((n+2)*'*')
  end;
end;

type
  Ex211b=class
 
  public
 
  constructor;
  begin
    var n:=ReadInteger('Введите целое число:');
    Writeln('Результат равен ',n+10)
  end;
end;

begin
  new Ex211a('Иван Иванов','7-841-2666666');
  new Ex211b
end.

Пример

*Иван Иванов  *
*7-841-2666666*

Введите целое число: 18
Результат равен 28

Class OftenChar{
 public static void main(String args[]){
  java.util.Scanner in = new java.util.Scanner(System.in);
  String string = in.nextLine(); char chars[] = new char[4];
  chars[0] = in.nextLine().charAt(0); chars[2] = in.nextLine().charAt(0);
  for(int sChar = 0; sChar<string.length(); sChar++)
   if(string.charAt(sChar)==chars[0])chars[1]++;
   else if(string.charAt(sChar)==chars[2])chars[3]++;
  System.out.print("\n"+(chars[1]==chars[3]?chars[0]+""+chars[2]:chars[1]>chars[3]?chars[0]:chars[2]));
 }
}