1.1 байт= 8 бит
2. нет. неверно. 'Иванова'>'Иванов' в 1 случае -9 бит, а во 2- 8
Смотря что ты можешь сделать
и какие усилия готова в него вложить!!!
Var
n,i,j,c:integer;
mas:array[1..999] of integer;
begin
readln(n);
for i:=1 to 2*n do
readln(mas[i]);
//Группируем массив в порядке возрастания
for i := 1 to 2*n-1 do<span>
for j := 1 to 2*n-i do
if mas[j] > mas[j+1] then
begin
c := mas[j];
mas[j] := mas[j+1];
mas[j+1] := c;
end;
writeln('Оптимальные пары:');
for i:=1 to 2*n do
begin
if i mod 2 = 1 then
write(mas[i],' и ');
if i mod 2 = 0 then
writeln(mas[i]);
end;
</span>end.
А, г, ж, з, и,к
11111111111111111111111111111