S = 2/1 + 3/2 + 4/3 + ...+ n+1/n Решите пожалуйста эту задачу в паскале. Даю 80 балов

Question

S = 2/1 + 3/2 + 4/3 + ...+ n+1/n Решите пожалуйста эту задачу в паскале. Даю 80 балов

Answer 1

P.S Программа написана для Pascal.

program summa;

var

 s:real;

 i, n: integer;

begin

 writeln('Введите число n: ');

 read(n);

 s:=0;

 for i:=1 to n do

   s:=s+(i+1)/i;

 writeln('S= ',s:4:2);

end.