N1=28x8=224
N2=(28+11)x8=312
<span>N2-N1=312-224=88</span>
Ответ:
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.
var a,b,c,max : real;
begin
read(a,b,c);
max:=(a+b+abs(a-b))/2;
max:=(max+c+abs(max-c))/2;
writeln(max);
end.
512Кб = 524288 байт = 4194304 бит
K=10x10=100 пикс
I=100 бит
i=I/k=100/100=1 бит
N=2^i=2^1=2 цвета
Ответ: 2 цвета