Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

вычислить через оператор For. помогите пожалуйста очень нужно

Ответ оставил Гость

var
x,s:real;
n,i:integer;
begin
  write(Введите X: );
  readln(x);
  write(Введите N: );
  readln(n);
  s:=0;
  for i:= 1 to n do s:=s+1/(x+i);
  writeln(Сумма = , s);
end.