Выберите цепную дробь, которая вычисляется программой:
var n: word;
function cep ( cur: integer; k: integer) : double;
begin
if cur>=k then cep:=k else cep:=cur + 1 / cep ( cur + 1, k);
end;
BEGIN
read (n) ; writeln (1/cep(1, n));
END.

Приложения:

Ответы

Ответ дал: Mandobro
0
Боле-менее нормально подходит  Ответ>>> [A]

Приложения:
Вас заинтересует