(А>В) и (В>С) это условие упорядочивания по убыванию, когда каждый элемент меньше предыдущего
53 КБайт = 54272 Байт = 434176 бит
256 пикселей по вертикали и 256 по горизонтали - 256*256 всего 65536
Делим первое на второе, чтоб получить, какое максимальное количество бит мы можем потратить на один пиксель, получается 6.625 бит на пиксель. Поскольку биты нецелыми не бывают, округляем вниз, получается 6 бит на пиксель. В 6 бит можно хранить 2^6 вариантов, то есть 64.
Ответ - 64
Поскольку у меня ужасный почерк, расшифрую комментарии:
- Символ ≠ можно заменить на <>
- Выводом послужит логический результат сравнения переменной r со значением 2
Для отмены последнего действия используется сочетание клавиш Ctrl+Z.
Program asd;
Var A,B:array [1..250,1..250] of integer;
i,j,n,m,k: integer;
BEGIN
Write('Введите n: '); Readln(n);
Write('Введите m: '); Readln(m);
for i:= 1 to n do
begin
for j:= 1 to m do
begin
A[i,j]:=random(10);
write(A[i,j]:3);
end;
writeln;
end;
writeln;
for i:= 1 to n do
for j:= 1 to m do
begin
If A[i,j] mod 2=1 then inc(k);
end;
If n=m then
begin
Writeln('Транспонирование: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(A[j,i]:3);
B[i,j]:=A[i,j];
end;
writeln;
end; writeln;
end
else
Writeln('Кол-во нечетных элементов: ',k);
<span>END.</span>