Question

Паскаль Решите с помощью рекурсии(функцией) задачу: x/2+x/3+...x/n СРОЧНО

Answer 1

Var x,s:real; n:integer;
function sum(a:real;k:integer):real;
begin
if k>1 then sum:=sum(a,k-1)+a/k;
end;
begin
writeln('x = ');
readln(x);
writeln('n = ');
readln(n);
writeln('sum = ',sum(x,n));
end.

Пример:
x = 6
n = 4
sum = 6.5