Сформировать квадратную матрицу порядка n по заданному образцу: n 0 0 0 0 0 0 n-1 0 0 0 0 0 0 n-2 0 0 0 . . . . 0 0 0 0 2 0 0 0 0 0 0 1

Const   n = 10; var   i, j: integer;   a: array[1..n, 1..n] of integer; begin   for i : = 1 to n do       for j : = 1 to n do           if i = j then a[i, i] : = n - i + 1           else a[i, j] : = 0;   writeln;   for i : = 1 to n do   begin       for j : = 1 to n do write(a[i, j]: 4);       writeln   end end.   10    0    0    0    0    0    0    0    0    0     0    9    0    0    0    0    0    0    0    0     0    0    8    0    0    0    0    0    0    0     0    0    0    7    0    0    0    0    0    0     0    0    0    0    6    0    0    0    0    0     0    0    0    0    0    5    0    0    0    0     0    0    0    0    0    0    4    0    0    0     0    0    0    0    0    0    0    3    0    0     0    0    0    0    0    0    0    0    2    0     0    0    0    0    0    0    0    0    0    1

Из 10 в 2 1. а)  635   = 1001111011б)  427   = 110101011в)  686.6875   = 1010101110.1011г)  683.5   = 1010101011.1д)  220.68   = 11011100.10101110000101000111101011100001010001111010111000из 10 в 8 а)  635   = 1173б)  427   = 653в)  686.6875   = 1256.54г)  683.5   = 1253.4 д)  220.68   = 334.53412172702436560507534121727024365605075341217270из 10 в 16а)  635   = 27bб)  427   = 1abв)  686.6875   = 2ae.bг)  683.5   = 2ab.8д)  220.68   = dc.ae147ae147ae147ae147ae147ae147ae147ae147ae147ae147

То, что написал alex - это не функция проверки признака делимости, а стандартная функция остатка от деления, которая тебе не подходит. признак делимости на 11 такой. нужно отдельно сложить цифры, стоящие на нечетных местах - 1, 3, 5, до конца, и отдельно цифры, стоящие на четных местах - 2, 4, 6, тоже до конца. потом вычитаешь из большего числа меньшее. если разность = 0 или делится на 11, то и все число делится на 11. я паскаль плохо знаю, поэтому опишу только алгоритм. 1) вводим начальное число n. 2) объявляем массив m[length(n)] длиной, равной количеству цифр числа. 3) делаем в цикле a : = n mod 10; m[i] : = a; n : = int(n / 10); i : = i+1; продолжаем цикл до тех пор, пока n > 0. 4) s1 : = 0; цикл от 1 до length(n) с шагом 2: s1 : = s1 + a[i]; 5) s2 : = 0; цикл от 2 до length(n) с шагом 2: s2 : = s2 + a[i]; 6) raznost : = abs(s1 - s2);   7) если raznost mod 11 = 0 тогда ответ да, иначе ответ нет. 8) конец