Вычислить вложенность корней - Pascal ABC

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

Вот, что требуется - тоесть как мне сделать корень из 2х + в нем уже корень из 2х + корень из 2х в предыдущем и тд ? пока написал программу просто сложнения корней из 2х:
var n,i:integer;
  s:real;
begin
  writeln('Введите N');
  readln(n);
  if n<0 then writeln('Число должно быть натуральным') else
begin
   s:=0;
   for i:=1 to n do
    begin
    s:=s + sqrt(2);
    end;
  writeln('Полученная сумма s = ',s);
end;
end.
не понимаю, как осуществить эту вложенность, но чтобы не было лишних корней вот такое не подойдет наверное s:=sqrt((s) + sqrt(2));

Код к задаче: «Вычислить вложенность корней - Pascal ABC»

textual
var 
  s : real;
  i : integer;
Begin
  s := 0;
  for i := 1 to 5 do { <-- для n = 5 }
    s := sqrt(2 + s);
  writeln(s:18:15);
end.

8   голосов, оценка 4.375 из 5


СОХРАНИТЬ ССЫЛКУ