1) В следующем высказывании выделите простые высказывания, обозначив каждое из них буквой; запишите с
букв и логических операций данное высказывание.
1. На уроке физики восьмиклассники учили формулы и решали задачи.
2. На уроке геометрии восьмиклассники доказывают теоремы или
рисуют круги.
2) Какие из предложений являются высказываниями?
1. Что завтра идет в кинотеатре?
2. Из Москвы в Пекин можно доехать на поезде.
3. Каждый учитель знает английский язык.
4. Любой цветок стоит на подоконнике.
5. Садись.
3)Даны сложные высказывания. Запишите их с
знаков логических операций.
1) Прочитанная книга оказывается либо интересной, либо скучной.
2) Вареники могут быть или с творогом, или с картошкой.
3) Неверно, что равносторонний треугольник имеет прямой угол .
4) Мы пойдем в музей и увидим знаменитую картину.
5) Следующая станция или Ложок, или Линево.

4)Напишите наибольшее число x, для которого истинно
высказывание:
(x < 42) И НЕ (в числе x нет одинаковых цифр)
5). Для какого из приведённых названий ложно высказывание?
НЕ (Количество букв чётное) ИЛИ (Первая буква согласная)
1) Омск
2) Иваново
3) Москва
4) Кировск

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
function
Transpose(a: array[,] of integer): array[,] of integer;
//Поворот на 90гр по часовой стрелке
begin
  var m := Length(a, 0);
  var n := Length(a, 1);
  Result := new integer[n, m];
  for var i := 0 to n-1 do begin
    for var j := 0 to m-1 do
      Result[i, j] := a[m-1-j, i];
  end;
end;

begin
  var n := ReadInteger('Введите n:');
//Заполнение матрицы NxN сл. числами и вывод на экран
  var a :=MatrixRandom(n, n);
  for  var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(a[i,j]);
    println;
    end;
     println;

  Println('поворот влево на 90 гр');
  var b := Transpose(a);
  b:=Transpose(b);
  b:=Transpose(b);
  for  var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
  println;

  Println('поворот вправо на 90гр');
  b := Transpose(a);
  for  var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
 println;

 Println('поворот на 180 гр');
  b := Transpose(a);
  b := Transpose(b);
  for  var i:=0 to n-1 do begin
    for var j:=0 to n-1 do
      Print(b[i,j]);
    println;
    end;
end.

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив ***');   var a: =matrrandom(2,4,-10,30);   a.println(4); writeln(4*a.colcount*'-');   writeln('п = ',a.elementsbyrow.where(t-> t.between(1,19))           .aggregate(1,(x,y)-> x*y)) end. пример *** исходный массив ***   24  16  22  12     2    5    1    8 п = 15360