function s_n = priklad1(n)
%s_n = priklad1(n)
%
%vypocte castecny soucet s_n rady 1/(1*2) + 1/(2*3) + 1/(3*4) + ...

s_n = 0;
for k = 1 : n
    s_n = s_n + 1 / k / (k + 1);
end

fprintf('Soucet prvnich %d clenu rady je roven %f.\n', n, s_n)

% konec