Составьте пожалуйста программу S=x/2+2x/3+3x/4+(n-1)/n

+ 0 -

Duska99

20 дек. 2014 г., 2:59:04 (9 лет назад)

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.