Ответы и объяснения

2014-04-10T20:36:27+04:00
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Uses crt; Function kor(x:real;n,k:integer):real; begin   if k=n then kor:=sqrt(x)   else    kor:=sqrt(x+kor(x,n,k+1)); end; Var x:real;    n:integer; begin clrscr; repeat write('x>0 x='); readln(x); until(x>0); repeat write('n>0 n='); readln(n); until n>0; writeln(kor(x,n,1):0:4); readln end.
или тут поищи
вот ссылка http://www.wolframalpha.com/input/?i=%28sqrt%283%29-2%29sqrt%287%2B4*sqrt%283%29%29