Паскаль Решите с помощью рекурсии(функцией) задачу: x/2+x/3+...x/n СРОЧНО
Паскаль
Решите с помощью рекурсии(функцией) задачу: x/2+x/3+...x/n
СРОЧНО
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы