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

2013-01-22T19:30:21+04:00

var

  S, summa, x: real;

  n, i: integer;

 

begin

  s:= 0;  //Присваиваем начальное значение переменной s

  writeln('Введите x');

  readln(x);

  writeln('Введите n');

  readln(n);

  for i:= 2 to n do  

  begin

    summa:= ((i - 1) * x) / i;  //Вычисляем значение суммы при текущем i

    s:= s + summa;  //Складываем его с общей суммой

  end;

  writeln('s = ', s : 0 : 5);  //Округляем до 5 знаков после запятой

end.