Обозначим за 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
16=2^4 =>4 бит на пиксель
320*320*4=409600 бит=51200 байт=50 кбайт
var a:array of integer;
N,i,k:integer;
function f(a:integer):Boolean;
begin
if (a mod 2=0) then f:=True else
f:=False;
end;
BEGIN
k:=0;
writeln('Введите количество элементов массива');
readln(N);
SetLength(A,N);
writeln('Введите массив');
for i:=0 to N-1 do begin
read(a[i]);
if (f(a[i])=True) then k:=k+1;
end;
writeln('Количество чётных элементов массива = ',k);
end.
Вводите с клавиатуры кол-во элементов массива, а затем сам массив.
Имя рост цвет глаз возвраст вес курс
марат 1,7м зеленый 18 65 1
марал 1,55м карий 21 56 3