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