// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк (столбцов) в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4);
Println(4*a.ColCount*'-');
var i:=ReadInteger('Укажите номер столбца (счет от 1):');
if i.InRange(1,a.ColCount) then
begin
var col:=a.Col(i-1);
Println('Сумма элементов столбца',col.Sum,'max=',col.Max)
end
else
Println('Недопустимый номер колонки')
end.
а) (11111012 + AF16) : 368
11111012 = 1 ∙ 26 + 1 ∙ 25 + 1 ∙ 24 + 1 ∙ 23 + 1 ∙ 22 + 0 ∙ 21 + 1 ∙ 20 = 64 + 32 + 16 + 8 + 4 + 0 + 1 = 12510
AF16 = 10 ∙ 161 + 15 ∙ 160 = 160 + 15 = 17510
368 = 3 ∙ 81 + 6 ∙ 80 = 24 + 6 = 3010
(125 + 175) : 30 = 300 : 30 = 10
ответ: 10
б) 1258 + 1012 ∙ 2A16 − 1418
1258 = 1 ∙ 82 + 2 ∙ 81 + 5 ∙ 80 = 64 + 16 + 5 = 8510
1012 = 1 ∙ 22 + 0 ∙ 21 + 1 ∙ 20 = 4 + 0 + 1 = 510
2A16 = 2 ∙ 161 + 10 ∙ 160 = 32 + 10 = 4210
1418 = 1 ∙ 82 + 4 ∙ 81 + 1 ∙ 80 = 64 + 32 + 1 = 9710
85 + 5 ∙ 42 − 97 = 85 + 210 − 97 = 198
ответ: 198