Question

Pascal. (через операторы цикла WHILE и REPEAT) Вычислить 2/1+3/2+4/3+...+(n+1)/n

Answer 1

Var sum,a,n:real; 
begin 
sum:=0; 
a:=1; 
writeln('Введите n'); 
read(n); 
n:=n+1; 
repeat 
sum:=sum+(a+1)/a; 
a:=a+1; 
until a=n; 
writeln(sum); 
end.