Укажите через запятую в порядке возрастания все основания систем счисления, в которых запись числа 22 оканчивается на 4.

Составляем уравнение: kn+4=22, где n - основание системы счисления, k - натуральное число. и решаем его в целых числах. kn=18 число 18 раскладывается на множители 1х2х3х3 следовательно, решениями будут пары 6х3, 9х2, 18х1 мы не можем брать в качестве n число, меньшее 5, поскольку в системах счисления по основанию меньше 5 не может существовать цифра 4. ответ: 6, 9, 18

Pascalabc.net 3.3.5, сборка 1650 от 01.04.2018 внимание! если программа не работает, обновите версию! begin   var (n,m): =readinteger2('количество строк и столбцов в массиве: ');   writeln('*** исходный массив ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var s: =a.elementsbyrow;   var avg: =s.average;   writeln('среднее арифметическое ',avg);   writeln('элементы, превышающее среднее арифметическое: ');   s: =s.where(t-> t> avg);   s.orderby(t-> t).println;   writeln('всего таких элементов: ',s.count) end. пример количество строк и столбцов в массиве: 4 5 *** исходный массив ***   98  95 -10 -45  21   -33 -11  14 -46  87   57 -40 -96 -40  15   -99 -20  -7 -29 -89 среднее арифметическое -8.9 элементы, превышающее среднее арифметическое: -7 14 15 21 57 87 95 98 всего таких элементов: 8

Const     n = 3;     m = 4; var     a: array[1..n,1..m] of integer;     i,j,min,ns: integer; begin {заполнение массива} writeln('исходный массив: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ');               end;       writeln       end; {поиск минимального элемента} min: =a[1,1]; for i: = 1 to n do       for j: = 1 to m do               if a[i,j]< min then                     begin                     min: =a[i,j];                     ns: =i;                     end; writeln('минимальный элемент в строке №',ns); end.