Question

Напишите программу Паскаль, ПОЖАЛУЙСТА!!!!

Answer 1

Придется задействовать рекурсию...

//PascalABC.NET v 3.3

var

  n, i: integer;

  r: real; 

function f(n: integer): real;

begin

  if n < 1 then

    n := 0

  else

    r := sqrt((2) + f(n - 1));

  f := r;  

end;

begin

  readln(n);

  print(f(n)/n); 

end.

Тестовые решения:

n = 1      вывод: 1.4142135623731

n = 10    вывод: 0.19999976469034

n = 100    вывод: 0.02