Ответ:
program Change;
var
n, i, j, t: Integer;
A: array of Integer;
begin
Write ('Введите четное число N: ');
ReadLn (n);
if n mod 2 = 0 then begin
SetLength (A, n);
Randomize;
for i := Low (A) to High (A) do begin
A [i] := Random (100);
Write (A [i] :3, ' ');
end;
i := 0;
while i < n do begin
t := A [i];
A [i] := A [i + 1];
A [i + 1] := t;
i := i + 2;
end;
WriteLn;
for i := Low (A) to High (A) do begin
Write (A [i] :3, ' ');
end;
end else
WriteLn ('Введено не четное число.');
ReadLn;
end.
I=a*b*i
1мб=800*600*i
1мб=
бит=8388608 бит
800*600=480000(на 1 страницу)
480000*2=960000(на 2 страницы)
i=
i=
i=9
Ответ: Можно использовать максимум 512 цветов
Аааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааааа 1-2 гига
<span>БРАТ-БРАК СЛОГ-СЛОН
ОЧКО-ОЧКИ СТОЛ-СТОГ </span><span>РОСТ-РОСА
ПОЛК-ПОЛЕ БАРД-БАРС
ОБЕД-ОБЕТ ЛОСК-ЛОСЬ</span><span>ЭТАП-ЭТАЖ ОБОД-ОБОИ СКАТ-СКАЗ КРАБ-КРАН ПЕНС-ПЕНЬ
</span><span>ТРОС-ТРОН ТЕМП-ТЕМА
МАРТ-МАРШ МОРС-МОРЕ
ВРАЧ-ВРАГ</span><span>СОЛЬ-СОЛО
КРОТ-КРОВ ЛАВА-ЛАВР ЛОЖА-ЛОЖЕ
ГРОТ-ГРОМ</span><span>ГОРА-ГОРЕ КЛИЧ-КЛИН
ПЕРО-ПЕРИ</span>