Найти сумму вида 1/n, где n меняется от 1 до 100 в паскаль

// PascalABC.NET 3.4

begin

    SeqGen(100,n->1/n,1).Sum.Println

end.

Будет выведено 5.18737751763962

Первый алгоритм (синий цвет):
Сначала на место с номером К (1) надо поместить самое высокое растение (это растение над номером 1). После этого K увеличивается на 1 и становится равным двух. Затем надо на второе место поместить самое высокое растение из оставшихся. Затем на четвертое и пятое. В итоге растения будут упорядочены по убыванию высоты.

Второй алгоритм (зеленый цвет). Всё точно так же, только каждый раз надо ставить растение с наибольшим числом лепестков. В итоге все растения будут упорядочены по убыванию числа лепестков.

На рисунке изображены расположения цветков. Рядом с цветками написаны числа лепестков. 

Транспортный уровень обеспечивает передачу данных между любыми узлами сети с требуемым уровнем надежности. Для этого на транспортном уровне имеются средства установления соединения, нумерации, буферизации и упорядочивания пакетов.

Сеансовый уровень предоставляет средства управления диалогом, позволяющие фиксировать, какая из взаимодействующих сторон является активной в настоящий момент, а также предоставляет средства синхронизации в рамках процедуры обмена сообщениями.

Уровень представления. В отличии от нижележащих уровней, которые имеют дело с надежной и эффективной передачей битов от отправителя к получателю, уровень представления имеет дело с внешним представлением данных. На этом уровне могут выполняться различные виды преобразования данных, такие как компрессия и декомпрессия, шифровка и дешифровка данных.

Прикладной уровень - это в сущности набор разнообразных сетевых сервисов, предоставляемых конечным пользователям и приложениям. Примерами таких сервисов являются, например, электронная почта, передача файлов, подключение удаленных терминалов к компьютеру по сети.