Как решить такое : сколько существует различных комбинаций целых чисел а и в, чтобы выполнялось логическое равенство: (a> 5) и не(a> b) и ((в< 7) или не(а+в> 15) = 1. (если можно поподробнее).
Преобразуем выражение к виду, из которого легко перевести в шестеричную систему, затем переведём в неё и посчитаем, сколько получится:
Как видим, была разность двух чисел в шестеричной системе счисления. Первое число состояло из двух единиц и кучи нулей. Вторая единица- после неё было 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.
в шестеричной системе и есть единица с 24-мя нулями).
Ruby 22
(0..100).each {|a|
(0..100).each {|b|
if (a>5) and not (a>b) and ((b<7) or not (a+b>15)) then
p [a,b]
end
}
}
вывод
[6, 6]
[6, 7]
[6, 8]
[6, 9]
[7, 7]
[7, 8]