<span>Program a1; </span>
<span>var y: array[1..14] of integer; k,s1,s2: byte; minY,maxY,m: integer; </span>
<span>begin </span>
<span>writeln('Vvedite massiv Y: '); {просим ввести массив} </span>
<span>for k:=1 to 14 do read(y[k]); {записываем массив} </span>
<span>s1:=0; s2:=0; {счётчики на 0} </span>
<span>minY:=y[1]; {присваиваем первому значению минимум...} </span>
<span>for k:=2 to 14 do begin if y[k] < minY then degin minY:=y[k]; s1:=s1+1; end; {если есть меньше, то присваиваем} </span>
<span>maxY:=y[1]; {присваиваем второму значению максимум...> <} </span>
<span>for k:=2 to 14 do begin if y[k] > maxY then degin maxY:=y[k]; s2:=s2+1; end; {если есть больше, то присваиваем} </span>
<span>m:=y[s1]; {используя переменную m меняем местами элементы} </span>
<span>y[s1]:=y[s2]; </span>
<span>y[s2]:=m; </span>
<span>writeln('Novyi massiv: '); </span>
<span>for k:=1 to 14 do write(y[k],' '); {выводим новый массив} </span>
<span>readln </span>
<span>end.</span>
<span>количество последовательностей будет равно количеству двоичных чисел, которые можно записать с помощью 5 символов, т.е. 2 ^ 5 = 32.
</span>
Площадь прямоугольника находится по формуле О-(У-1), или О-У+1, где О - это число отрезков, а У - число узлов. Площадь нашего прямоугольника равна 881647 - 439706 + 1 = 441942. Найдем для получившегося числа делители, чтобы узнать возможные размеры сторон. Их восемь, и стороны, предположительно, такие: 1 и 441942, 2 и 220971, 3 и 147314, 6 и 73657, 73 и 6054, 146 и 3027, 219 и 2018, 438 и 1009. Умножая получившиеся пары, мы найдем, что только для площади 441942 подходит только одна пара чисел - 219 и 2018. Это и будет ответ задачи.
Для того, чтобы в тексте все буквы а поменять на буквы б, необходимо жмякнуть ctrl+c "а" ctrl+v "б"
Имеет расширение zip файла