Помогите пожалуйста с этим заданием: Составьте программу для вычисления следующей суммы: S = 1 + (i1+1) / i1 + …+ (in+1) / in , где i меняется от 5 до 20.

1

Ответы и объяснения

  • Tlalok
  • почетный грамотей
2013-04-11T07:24:36+00:00

var

  S: real;

  n, i:integer;

begin

  s := 1;

  write('Введите количество членов последовательноти '); readln(n);

  for i := 1 to n do

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

   writeln('S = ', S);

end.