Дано натуральное n. Вычислить 2 способами - Turbo Pascal

Формулировка задачи:

1. Дано натуральное число n. Вычислить: n/1 + (n-1)/2 + (n-2)/3 + ... + ?/n Решить 2 способами с использованием цикла параметрами и одного из двух других типов цикла 2. Найти все делители натурального числа n

Решение задачи: «Дано натуральное n. Вычислить 2 способами»

Листинг программы

s:=0;
i:=1;
while i<=n do
 begin
   s:=s+(n-i+1)/i;
   i:=i+1;
 end;

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal.
Задано натуральное число n.
Переменная s инициализируется значением 0.
Переменная i инициализируется значением 1.
Запускается цикл while, который выполняется до тех пор, пока значение переменной i не станет больше n.
Внутри цикла происходит вычисление суммы s = s + (n — i + 1) / i.
Значение переменной i увеличивается на 1 после каждой итерации цикла.
Код не содержит операций ввода-вывода или использования каких-либо других переменных.
По завершении цикла, значение переменной s будет содержать результат вычисления суммы.
В данном коде не указаны комментарии или пояснения к алгоритму, поэтому предполагается, что он написан максимально компактно и оптимизирован для вычисления суммы последовательности натуральных чисел от 1 до n.