1)57.625
2)137.52
3)2F.088
4)20СА8
решение расписывать лень, если нужно то вот сайтик, там и объясняется всё
http://math.semestr.ru/inf/index.php:
Переведем сначала все в двоичную:
88.45₁₀ = 64 + 16 + 8 + 45/100 = 1011000.001110011001₂
1 011 000.001 110 011 001₂ = 130.1421₈
101 1000.0011 1001 1001₂ = 58.399₁₆
Ну допустим элементы (36, 50, 41, 70, 31, 26, 38) преобразуем и выводим (180, 50, 245, 70, 155, 26, 190)
Program abc;var<span> i, j: byte;</span><span> arr1, arr2: array [1..5] of array [1..5] of integer;</span><span> arr: array[1..25] of integer;</span>begin<span> for i := 1 to 25 do</span><span> begin</span><span> arr[i] := i;</span><span> end;</span><span> writeln('array1:');</span><span> for i := 1 to 5 do</span><span> begin</span><span> for j := 1 to 5 do</span><span> begin</span><span> arr1[i][j] := arr[(i - 1) * 5 + j];</span><span> write(' ', arr1[i][j], ' ');</span><span> end;</span><span> writeln();</span><span> end;</span><span> writeln('array2:');</span><span> for i := 1 to 5 do</span><span> begin</span><span> for j := 1 to 5 do</span><span> begin</span><span> arr2[i][j] := arr1[j][i];</span><span> write(' ', arr2[i][j], ' ');</span><span> end;</span><span> writeln();</span><span> end;</span><span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ArrRandom(ReadInteger('n='),0,1).Println.Sorted.Println
end.
<u>Пример</u>
n= 15
0 0 1 1 0 1 1 1 1 0 0 1 1 0 1
0 0 0 0 0 0 1 1 1 1 1 1 1 1 1