Option explicit sub aaa() const n = 5 dim a(1 to n, 1 to n) as long, e(1 to n, 1 to n) as long dim i as integer, j as integer, k as integer ' инициализация матриц for i = 1 to n for j = 1 to n if i = j then a(i, j) = 0 ' глупо тут вычислять i-j e(i, j) = 1 else a(i, j) = i - 2 * j e(i, j) = 0 end if next j next i ' a^2 - просто умножение матрицы самой на себя dim b(1 to n, 1 to n) as long for i = 1 to n for j = 1 to n b(i, j) = 0 for k = 1 to n b(i, j) = b(i, j) + a(i, k) * a(k, j) next k next j next i ' 3a^2 - a + 7e for i = 1 to n for j = 1 to n b(i, j) = 3 * b(i, j) - a(i, j) + 7 * e(i, j) next j next i ' поиск столбца b с максимальной суммой модулей элементов dim s as long, max as long, jj as long max = -1000000 for j = 1 to n s = 0 for i = 1 to n s = s + abs(b(i, j)) next i if s > max then max = s jj = j end if next j ' вывод на лист excel range(cells(1, 1), cells(n + 1, cells(1, 1) = "столбец " + cstr(jj) for i = 1 to n cells(i + 1, 1) = b(i, jj) next i end sub
Zhamynchiev
21.10.2021
Прежде всего, основание 17 - в нем 17₁₀ запишется как 10 - подходит, четное. далее, основания меньше 17, в которых запись числа 17₁₀ состоит из двух цифр. 17 = 16+1 = 15+2 = 14+3 = 13+4 = 12+5 = 11+6 = 10+7 = 9+8 = 8+9 = вариант 8+9 уже не подходит. легко догадаться, что 16+1 - это 1×16+11 = 11₁₆ в развернутом виде, 15+2 = 12₁₅, 14+3 = 13₁₄ 9+8 = 18₉ и это последнее двухзначное число. 8+9 - это совсем не "9₈", поскольку цифра в записи числа не может быть даже равна основанию системы счисления, а не то, чтобы превышать его. итак, пока насчитали 5 оснований систем счисления. остановились на основании 8. 17 = 2×8+1 = 21₈. последняя цифра нечетная. 17 = 2×7+3 = 23₇. последняя цифра также нечетная. 17 = 2×6+5 = 25₆. и здесь последняя цифра нечетна. 17 = 3×5+2 = 32₅. подходит 17 = 4×4+1, но по основанию 4 не существует четверки в записи. все, двухзначные числа закончились. 17 = 1×3² + 2×3¹ + 2×3⁰ = 122₃. последняя цифра четная. 17 = 10001₂ - последняя цифра нечетная. всего получилось 5+2 = 7 систем счисления.
1) с бегунка справа
2) с поиска определенного слов
3) с поиска определенной страницы