Обозначим за m ( = 2003) число строк в таблице, n ( = 2016) - число столбцов
a[i,j] - число, стоящее в i-ой строке, j-ом столбце в таблице, заполненной по горизонталям, b[i,j] - по вертикалям ( i = 1..m, j = 1..n)
Тогда a[i,j] = n*(i-1) + j, b[i,j] = m*(j-1) + i
Условие совпадения чисел в соответствующих клетках: a[i,j] = b[i,j]
2016*(i-1) + j = 2003*(j-1) + i
2016i - 2016 + j = 2003j - 2003 + i
2015i = 2002j + 13 {все числа делятся на 13}
155i = 154j + 1
Общее решение этого уравнения:
i = 1 + 154k
j = 1 + 155k
k = 0..13 (при k < 0 и при k > 13 i и j выходят из допустимого диапазона)
Т.е. всего 14 решений.
Ответ: 14
В цикле происходит переприсваивание элементу массива B[i] значения элемента массива B[j], где i меняется от 1 до 20, а j вычисляется по формуле ЦелаяЧасть ( (i+5)/3 ) + 1.
Эта формула порождает значения 3, 3, 3, 4, 4, 4, ... 8, 8, 8, 9, 9
Будут получены шесть троек значений 3, 4, 5, ... 8 и одна пара значений 9.
При этом i пробежит 10 четных значений 2, 4, 6, ...20 и для i=4 будет получено j=4, т.е. этот элемент не изменит значения.
Следовательно, свои значения изменят <u>9</u> четных элементов.
Объяснение:
в 128 символьном алфавите 1 символ равен 7 битам
1120/6= 160
Номер 1
K=I/i
N=2^i
16=2^4
K=512/4=128 символов
Номер 2
I=n*i*k
N=2^i
i=I/n*k
i=1/16*1024*8/2*256=512/512=1
N=2
Var
a, b, c: real;
function IsBetween(x, a, b: real): boolean;
var
t: real;
begin
if a < b then
begin
t := a;
a := b;
b := t;
end;
IsBetween := (a >= b) and (a >= x) and (x >= b);
end;
begin
Readln(a, b, c); // не вводить одинаковых!
Write('Среднее число №');
if IsBetween(a, b, c) then writeln(1);
if IsBetween(b, a, c) then writeln(2);
if IsBetween(c, b, a) then writeln(3);
end.