Записи с меткой «Pascal»

Решаем задачи Абрамян на Паскале. Array140

Array140. Дано множество $$A$$ из $$N$$ точек с целочисленными координатами x, y. Порядок на координатной плоскости определим следующим образом: $$(x_1, y_1) \lt (x_2, y_2)$$, если либо $$x_1 + y_1 \lt x_2 + y_2$$, либо $$x_1 + y_1 = x_2 + y_2$$ и $$x_1 \lt x_2$$. Расположить точки данного множества по убыванию в соответствии с указанным …

Решаем задачи Абрамян на Паскале. File17

File17. Дан файл целых чисел. Создать новый файл целых чисел, содержащий длины всех серий исходного файла (серией называется набор последовательно расположенных одинаковых элементов, а длиной серии — количество этих элементов). Например, для исходного файла с элементами $$1, 5, 5, 5, 4, 4, 5$$ содержимое результирующего файла должно быть следующим: $$1, 3, 2, 1$$.

Решаем задачи Абрамян на Паскале. Array139

Array139. Дано множество $$A$$ из $$N$$ точек с целочисленными координатами $$x$$, $$y$$. Порядок на координатной плоскости определим следующим образом: $$(x_1, y_1) \lt (x_2, y_2)$$, если либо $$x_1 \lt x_2$$, либо $$x_1 = x_2$$ и $$y_1 \lt y_2$$. Расположить точки данного множества по возрастанию в соответствии с указанным порядком.

Решаем задачи Абрамян на Паскале. File16

File16. Дан файл целых чисел. Найти количество содержащихся в нем серий (то есть наборов последовательно расположенных одинаковых элементов). Например, для файла с элементами $$1, 5, 5, 5, 4, 4, 5$$ результат равен $$4$$.