Program asd;
Const n=30;
var M:array[1..n] of integer;
i,k,s:integer;
BEGIN
Writeln('Заполните массив: ');
For i:=1 to n do
begin
Readln(M[i]);
end;
s:=0;
For i:=1 to n do
begin
If (M[i] mod 2=0) then
begin
inc(k);
s:=s+M[i];
end;
If (s mod 2=2) and (k mod 2=0) then
Writeln('Верно.')
else Writeln('Не верно');
end;
<span>END.</span>
, Первоначально (после первого цикла): A = 0 1 2 ... 10
Посмотрим, что делает второй цикл.
Заметим, что переменная k здесь бесполезна - ей присваивают какие-то значения, а потом ничего с ними не делают. Тогда про неё можно забыть. Остаётся только одна команда: A[i] = A[10-i]
Для i = 0, 1, 2, 3, 4 она просто заменяет A[i] на значение, симметричное относительно центра A[5]; A[0]=10, A[1]=9; A[2]=8; A[3]=7; A[4]=6.
С i=5 не происходит ничего: присвоение имеет вид A[5]=A[5]
Для последующих i опять A[i] меняется на симметричное. Но после i=4 массив и так "симметричен", так что все эти команды ничего не делают.
A = [10, 9, 8, 7, 6, 5, 6, 7, 8, 9, 10]
Ну изи же
1)1
2121
3)YES
4)67
5)Не видно конец кода
<span>Копирование - процесс изготовления копии, то есть воспроизведения объекта, процесса, явления, информации.
</span>
Для того, чтобы решить данную задачу, необходимо воспользоваться формулой N = 2^i, где N - максимальное количество цветов в палитре, а i - глубина цвета.
2^8 < 312 < 2^9
Если мы будем использовать глубину цвета равную 8 битам, то максимальное допустимое количество цветов в палитре будет равняться 256 (так как 2^8 = 256), что не удовлетворяет условиям задачи.
Значит, нам необходимо использовать глубину цвета равную 9 битам, так как при этом значении максимальное допустимое количество цветов в палитре будет равняться 512(так как 2^9 = 512), а значит для кодирования 312 цветов памяти хватит с избытком.
Ответ: 9
