function n=priklad1(s)
%n=priklad1(s)
%kolik clenu harmonicke rady musite nejmene secist, 
%aby tento castecny soucet rady mel hodnotu alespon s

i=1;
suma=0;
while suma<s
    suma=suma+1/i;
    i=i+1;
end

n=i;

% konec