Преобразуем выражение к виду, из которого легко перевести в шестеричную систему, затем переведём в неё и посчитаем, сколько получится:
Как видим, была разность двух чисел в шестеричной системе счисления. Первое число состояло из двух единиц и кучи нулей. Вторая единица- после неё было 24 нуля (т.к. в шестеричной системе и есть единица с 24-мя нулями). Потом мы вычли из этого единицу с одним нулём. Получается, у нас из этих 24-ёх нулей, последний останется, а вместо остальных 23-ёх будут стоять пятёрки. Ну, а вместо второй единицы будет ноль.
PascalABC.NET 3.4, сборка 1670 от 23.05.2018 Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк/столбцов в матрице:'); Writeln('*** Исходная матрица ***'); var a:=MatrRandom(n,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var (su,sl):=(0,0); for var i:=0 to n-1 do for var j:=0 to n-1 do if i<j then su+=a[i,j] else if i>j then sl+=a[i,j]; var sgn:=Sign(su-sl); case sgn of -1:Writeln('Сумма элементов над диагональю меньше'); 0:Writeln('Суммы элементов над и под диагональю равны'); 1:Writeln('Сумма элементов над диагональю больше') end end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку