Даны натуральные числа X и Y. Найти количество нечетных чисел, меньших X+Y.
(repeat-until)

смотри скриншот                                    

var a: array[1..10, 1..10] of integer; i, j, s: integer;

begin s : = 0; for i : = 1 to 10 do begin for j : = 1 to 10 do begin a[i, j] : = random(20) + 1; write(a[i, j]: 3); if (j = 2) and (a[i, j] > 10) then s : = s + a[i, j]; end; writeln; end; writeln('сумма элементов 2го столбца больших 10 равна', s); end.

max: =a[1];

for i: =2 to 10 do

begin 

if a[i]> max then

max: =a[i];  

c: =i;  

  end;

min: =a[1];

for i: =2 to 10 do

begin

if a[i]< min then

min: = a[i];

d: =i;

end;

a[c]: =x;

a[c]: =a[d];

a[d]: =x;  

это кусочек программы в паскале для нахождения максимального элемента на скоко я помню 

если буква к кодируется 11001010, то следующая, т.е. л кодируется 11001010+1 в двоичной, т.е. это равно 11001011. таким образом найдем код букв м, о и с:

м = 11001010+1+1=11001100; о=м+1+1=11001100+1+1=11001101+1=11001110;

с=о+1+1+1=11001110+1+1+1=11001111+1+1=11010000+1=11010001

ответ 2.