Дано число n найти остаток этого числа при делении на 16

n/16-16

1a)  (-3-7)/(-1)+1 = 11 раз выполнится цикл. стандартная формула вычисления числа шагов. 1b)тут k меняется от 0 с шагом 4 до 14 (15 уже нельзя). по той же формуле: (14-0)/4+1 = 3+1 = 4 раза (деление мы выполняем нацело). 1c) k присваивается значение 10, затем оно уменьшается на 1 (теперь k=9) и проверяется условие завершения цикла k> 2. условие завершения истинно, поэтому цикл будет выполнен 1 раз. 2a) до входа в цикл s=0, а при каждом проходе по циклу s увеличивается на 1, если выполняется некое условие, т.е. s - это счетчик, значение которого выводится после окончания цикла. условие k mod 7 = 0 сообщает нам, что именно подсчитывается: сколько раз k будет делится на 7 без остатка. значение k изменяется от 1 до 27 и легко найти на этом интервале все числа, кратные 7, если вспомнить таблицу умножения: 7, 14, 21. следовательно, будет выведено число 3. 2b) здесь так же s=0 перед входом в цикл, но в теле цикла s увеличивается уже не на 1, а на k, т.е. это накопление суммы некоторых k. первоначально k=1, а затем оно с шагом 4 растет, пока остается меньше 18, т.е k = 1, 5, 9, 13, 17. сумма этих чисел и будет накоплена в s, так что s = 1+5+9+13+17 = 45 2с) здесь выводится значение p. перед входом в цикл ему присваивается уже не 0, а 1, так что тут "запахло" произведением, а не суммой. и действительно, в теле цикла p домножается на k, т.е. это произведение неких k. посмотрим, каких именно. первоначально k=0. входим в цикл, он типа repeat, поэтому входим, не думая. первое же умножение p на 0 даст 0 и дальше уже нечего думать: сколько не умножай, ноль нулем и останется. так и будет выведено число 0.

Var a,b: array[1..10] of integer; i,n: integer; begin n: =0; writeln('введите массив'); for i: = 1 to 10 do       read(a[i]); for i: = 1 to 10 do       if not ((a[i] mod 2 = 0) and (a[i] mod (a[i] mod 10) = 0)) then             begin             n: =n+1;             b[n]: =a[i];             end; for i: = 1 to n do       write(b[i],' '); end.