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.
Поделитесь своими знаниями, ответьте на вопрос:
Вычислить сумму S= 1/15+1/16+1/17+...1/n паскаль программа
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.