Program number10;

uses crt;
const n = 3;
var
a: array[1..n, 1..n] of integer;
i, j: integer;
x: integer;

begin
writeln('Исходная матрица');
for i := 1 to n do begin
for j := 1 to n do begin
a[i, j] := random(101);
write(a[i, j]:4);
end;
writeln;
end;
writeln('Транспонированная матрица');
for i := 1 to n do begin
for j := 1 to n do begin
swap(a[i, j], a[j, i]);
write(a[i, j]:3);
end;
writeln;
end;
end.

Нужно сделать так, чтобы столбцы с строкой менялись местами, первая строка делает всё как надо, а две другие так и остаются.

Пользователь знает ключ, или

пароль, который известен только ему. К этой группе можно отнести и идентификацию через смс-уведомления. При вводе имени и пароля пользователя сервер сравнивает введенные данные

с сохраненными данными. В случае полной идентичности введенных данных появляется возможность войти в систему.

Различают два вида паролей – динамические

и постоянные. Постоянные пароли изменяются

только по требованию пользователя, а динамические пароли изменяются по определенным параметрам. Например, если пользователь забудет

пароль, сервер может предложить ему динамический пароль для входа в систему.

Объяснение:

1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
  x, y, a, b, k: integer;

begin
  k:=10000;
  repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8); 
end.