Question

нужно в паскале написать программу.Даны натуральные числа a, n. Вычислить 1/a+1/a+1+...+1/a+n помогите в паскале составить эту штуковину. ПОЖАЛУУЙСТА

Answer 1

var a,n,i:integer;   
      r,s:real;
 begin 
 readln(a);
 readln(n);
for i:=a to n do begin
r:=i;
s:=s+1/i;
end;
writeln(s);
end.