Написать рекурсивную программу

@impuls__s · Регистрация: 10.02.2010

Author24 — интернет-сервис помощи студентам

Написать рекурсивную программу нахождения $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}_{n}=\sqrt{2+\sqrt{2+...+\sqrt{2}}}$ для заданного n.

@Puporev · 03.04.2011, 20:49

Pascal

Uses crt;
Function kor(n:integer):real;
begin
  if n=1 then kor:=sqrt(2)
  else
   kor:=sqrt(2+kor(n-1));
end;
Var
   n:integer;
begin
  Clrscr;
  write('n=');
  readln(n);
  writeln(kor(n):0:3);
  readln;
end.

@impuls__s 0 / 0 / 0 Регистрация: 10.02.2010 Сообщений: 37
		1
	Написать рекурсивную программу 03.04.2011, 18:20. Показов 1106. Ответов 1 Метки нет (Все метки) Написать рекурсивную программу нахождения $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}_{n}=\sqrt{2+\sqrt{2+...+\sqrt{2}}}$ для заданного n. 0

	03.04.2011, 20:49

Опции темы

Написать рекурсивную программу

Решение