Question

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

Answer 1

var

  i,n:integer;

  sum,x:real;

begin

  write ('X = ');

  readln(x);

  write ('N = ');

  readln(n); 

  sum:=0;

  for i:=1 to n do sum:=sum+1/(x+i);

  writeln ('Summa: ',sum:0:4);

  readln;

end.