Const n=4; var arr: array[1..n, 1..n] of integer; i, j, t, buf: integer; begin for i:=1 to n do for j:=1 to n do begin write('Введите элемент: '); readln(arr[i,j]); end; writeln('Введеная матрица:'); for i:=1 to n do begin for j:=1 to n do write(arr[i,j]:4); writeln(); end; //Сортировка for j:=1 to n do for i:=1 to n-1 do for t:=i+1 to n do if arr[i,j] > arr[t,j] then begin buf := arr[i,j]; arr[i,j] := arr[t,j]; arr[t,j] := buf; end; writeln('Отсортированная матрица:'); for i:=1 to n do begin for j:=1 to n do write(arr[i,j]:4); writeln(); end; end.
Правильно пишется шестнадцатеричный. При переводе 2⇒16 число справа налево делится на группы из 4 цифр каждая, затем каждая группа заменяется на шестнадцатеричную цифру: 1000111111₂ = 10 0011 1111₂ = 23F₁₆ При переводе 10⇒12 число надо делить на 12 и выписать остатки от деления в обратном порядке. Остаток 10 заменить на A, остаток 11 - на B 923₁₀ = 64B₁₂ Два последних примера лучше делать за 2 действия: сначала перевести в 10-ю систему счисления, а потом - в 5 (или 12) 79₁₆ = 121₁₀ = 441₅ 1050₈ = 552₁₀ = 3A0₁₂
begin
var x := ReadReal('x =');
Println(7 * x ** 5 * Sqrt(Abs(Tan(x)))+Sqr(ArcTan(x)));
var a := ReadReal('a =');
Println((5 * a * Exp(Sin(a)) + a ** (1/7)) / Sqrt(Abs(Cos(a))))
end.