Вычислить вложенность корней - 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»
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
СОХРАНИТЬ ССЫЛКУ