Дана последовательность 1+1/2+1/3+∞+1/n

[Алексей_2012]

тогда вот так, куда проще-то)) :

function recurs (N:integer):real;
begin
if (N<>0) then 
result:=(1.0/N)+recurs(N-1);
end;



var chislo:integer;
begin
writeln('Press chislo...');
readln(chislo);
writeln(recurs(chislo));
readln;
end.