Question

вычислить сумму S= 1/15+1/16+1/17+...1/n паскаль программа

Answer 1

var

s : real;

i,n : integer;

begin

s:=0;

readln(n);

for i := 15 to n do

s := s + 1/i;

write(s:5:2);

end.