Условный оператор. С клавиатуры ведены два числа. Если первое число равно квадрату второго, то к первому числу прибавить 2, а от второго отнять 4, в противном случае найти разность их квадратов. Оператор выбора. Арифметические действия. Дано целое число от 1 до 4, где 1 – возведение в квадрат, 2 – возведение в третью степень, 3-возведение в четвертую степень, 4- возведение в пятую степень. Вывести на экран вычисления с числом А (положительное). Арифметические действия должны быть записаны с использованием sqr и формулы с экспонентой.
При переводе 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₁₂
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.