Определить информационный объём в байтах текста состоящего из ваших ФИО (считая пробелы), если известно, что при создании этого текста использован алфавит мощности 256 символов (этот алфавит используется для представления текста в компьютере Полученные значения перевести в соответствии с единицами измерения в Килобайт ФИО: Горенко Анна Андреевна

X x x x x   т.к. первое нечет-е тогда возьмем любое нечет-е. и две 7.
1 0 0 7 7  код не содержит 0
   1 1        1 11 77...1 19 77 (8 комбинаций)
   2 2        код не содержит 2
   3 3        1 31 77 ...1 39 77 (8 комбинаций)
   4 4        1 41 77... 1 49 77 (8 комбинаций)
   5 5        1 51 77... 1 59 77 ( 8 комбинаций)
   6 6        1 61 77... 1 69 77 (8 комбинаций)
   7 7        1 71 77... 1 79 77 (8 комбинаций)
   8 8        1 81 77... 1 89 77 (8 комбинаций)
   9 9        1 91 77... 1 99 77 (8 комбинаций)
                                              8+8+8+8+8+8+8+8=64 раза ему придется                                                     комбинировать.

Program a1; 
var y: array[1..14] of integer; k,s1,s2: byte; minY,maxY,m: integer; 
begin 
writeln('Vvedite massiv Y: '); {просим ввести массив} 
for k:=1 to 14 do read(y[k]); {записываем массив} 
s1:=0; s2:=0; {счётчики на 0} 
minY:=y[1]; {присваиваем первому значению минимум...} 
for k:=2 to 14 do begin if y[k] < minY then degin minY:=y[k]; s1:=s1+1; end; {если есть меньше, то присваиваем} 
maxY:=y[1]; {присваиваем второму значению максимум...> <} 
for k:=2 to 14 do begin if y[k] > maxY then degin maxY:=y[k]; s2:=s2+1; end; {если есть больше, то присваиваем} 
m:=y[s1]; {используя переменную m меняем местами элементы} 
y[s1]:=y[s2]; 
y[s2]:=m; 
writeln('Novyi massiv: '); 
for k:=1 to 14 do write(y[k],' '); {выводим новый массив} 
readln 
end.