1. составьте программу, которая: a) определяет коды двух введенных с клавиатуры символов. б) выполняет операцию сцепление трех введенных с клавиатуры символов. в) выполняет сравнение двух введенных с клавиатуры символов и выводят результат сравнение на экран. например: 'a'< 'б' , 'д'='д' , 'я'< 'ы' г)выполняет сравнение двух введенных с клавиатуры символов и выводит их на экран в порядке возрастания их кодов.

а), б)

var a, b, c: char;

begin

 writeln('Введите 3 символа');

 readln(a, b, c);

 writeln('Результат сцепления: ', a+b+c);

 if a>b then writeln(a,'>', b);

 if a>c then writeln(a,'>', c);

 if a=b then writeln(a, '=', b);

 if a=c then writeln(a, '=', c);

 if a<b then writeln(a, '<', b);

 if a<c then writeln(a, '<', c);

 if b>c then writeln(b, '>', c);

 if b<c then writeln(b, '<', c);

end.

в)

var a, b: char;

begin

 writeln('Введите 2 символа');

 readln(a, b);

 if a>b then writeln(b,'  ', a);

 if a<b then writeln(a,'  ', b);

 if a=b then writeln(a,'  ', b);

end.

если правильно дай лутший ответ

главная диагональ --- это набор элементов с координатами (индексами) (i,i), где i∈[1, n]. n -- размерность матрицы, а вот как быть с транспонированием, например, трёхмерной матрицы? какой смысл оно имеет в этом случае? как составить условие обмена элементов? примечание: вообще состоит в том, чтобы сделать матрицу самосопряжённой, переписать такой вот код для случая произвольной конечной размерности: -- данный код для двумерной матрицы копирует одну её половину (если резать по диагонали) на вторую, при этом комплексно сопрягая элементы. а точнее -- в этом коде непонятно только условие обмена новое -то есть какие координаты поставить: если очередной matrixelement (в эту переменную получаем очередной элемент матрицы) имеет набор координат (x,).

var

  k: integer;

begin

  readln(k);

  if k< 0 then

    writeln('не может такого быть')

  else

    begin

      write('мы нашли в лесу ',k,' гриб');

      if (k mod 100 in [5..19]) then

        writeln('ов')

      else if (k mod 10 in [2..4]) then

        writeln('а')

      else if (k mod 10=1) then

        writeln

      else

        writeln('ов');

    end;

end.