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

Answer 2

Спасибо огромное!!!

Answer 3

Пожалуйста.