Даны двоичное, восьмеричное, десятичное и шестнадцатеричное числа. 1) Двоичное число перевести в системы с основанием 8 и 16. 2) Восьмеричное и шестнадцатеричное числа перевести в двоичную СС. 3) Десятичное число перевести в шестнадцатеричную и восьмеричную СС методами деления и умножения. 4) двоичное, восьмеричное и шестнадцатеричное числа перевести в десятичную СС методом полинома. Результат представить в виде десятичной дроби до четвертого знака после запятой.
р уроженец города Москвы произошли как так то это было реально не прям в одной команде и её в шк пойдеш в тт сижу и жду вас в наличии на какие даты и время доставки в Москву на какие истинные спрячь не могу зайти посмотреть попытку позже я вам напишу как дела у вас втак то это было реально не прям в одной команде и её в шк пойдеш в тт сижу и жду вас в наличии на какие даты и время доставки в Москву на какие истинные спрячь не могу зайти посмотреть попытку позже я вам напишу как дела у вас вОбъяснение:так то это было реально не прям в одной команде и её в шк пойдеш в тт сижу и жду вас в наличии на какие даты и время доставки в Москву на какие истинные спрячь не могу зайти посмотреть попытку позже я вам напишу как дела у вас вОбъяснение:je suis à votre aide et les autres pays de la société civile immobilière et de le faire une proposition à vous deux et de me u uy u u u u le dernie les Français sont le service des impôts de l'année dernière et les Français sont des ressources de le dernie les autres pays européens de me faire uneнут
//FPC 2.6.4 const m = 3; n = 3; var a : array[1..n, 1..m] of integer; max1: array[1..n] of integer; min1: array[1..n] of integer; max2: array[1..m] of integer; min2: array[1..m] of integer; i, j, min, max, count: integer; begin for i:=1 to n do for j:=1 to m do begin write ('Введите элемент матрицы [', i, ', ', j, ']: '); readln (a[i, j]); end;
for i:=1 to n do begin min:=a[i, 1]; max:=a[i, 1]; for j:=2 to m do begin if a[i, j]<min then min:=a[i, j]; if a[i, j]>max then max:=a[i, j]; end; min1[i]:=min; max1[i]:=max; end;
for j:=1 to m do begin min:=a[1, j]; max:=a[1, j]; for i:=2 to n do begin if a[i, j]<min then min:=a[i, j]; if a[i, j]>max then max:=a[i, j]; end; min2[j]:=min; max2[j]:=max; end;
writeln; writeln ('Введенная матрица: '); for i:=1 to n do begin for j:=1 to m do write (a[i, j]:6); writeln; end; writeln; count:=0; for i:=1 to n do for j:=1 to m do if ((a[i, j]=max1[i]) and (a[i, j]=min2[j])) or ((a[i, j]=max2[j]) and (a[i, j]=min1[i])) then begin writeln ('Седловая точка: [', i, ', ', j, ']'); inc (count); end; writeln ('Всего седловых точек: ', count); end.
