Циклы в Pascal - Pascal (93498)

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

Дано натуральное число n . Вычислить

Решение задачи: «Циклы в Pascal»

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

uses crt;
var n,i:integer;
    s:real;
begin
clrscr;
write('n=');
readln(n);
s:=sqrt(n);
for i:=n-1 downto 1 do
s:=sqrt(2*i+s);
write('S=',s:0:2);
readln
end.

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

Объявлены переменные: n, i (целые числа), s (реальная число).
Очистка экрана.
Ввод значения переменной n с клавиатуры.
Вычисление значения переменной s как квадратного корня из n.
Запуск цикла for, который выполняется от n-1 до 1 (включая границы).
Внутри цикла вычисляется новое значение переменной s как квадратный корень из 2*i+s.
После окончания цикла выводится значение переменной s с точностью до 2 знаков после запятой.
Программа ожидает ввода данных с клавиатуры для завершения работы.