Pascal Дано вещественное число X и целое число N (> 0). Найти значение выражения
(n слагаемых)

program prog77;

var

   x : real;

   n: integer;

   s: real;

   i: integer;

begin

 write ('x = ?');

 readln(x);

 write ('n = ?');

 readln(n);

 s := 0;

 for i := 1 to n do

 begin

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

 end;

 write ('S = ', s);

end.

Объяснение:

// PascalABC.NET

begin

 var x := ReadReal('x =');

 var n := ReadInteger('n =');

 SeqGen(n, p -> p / (x + p), 1).Sum.Print

end.

используется язык pascal

program pr;

var

  mas: array[1..7] of integer;

  i: integer;

begin

writeln('вводим значения в массив');

  for i: =1 to 7 do readln (mas[i]);

writeln('выводим значения из массива');

  for i: =7 downto 1 do writeln(mas[i]);

readln;

end;

у меня получилось, что первое число 954, второе 459, а третье 495. т.е. получился пример : 954-459=495