Question

Для заданных с клавиатуры значений переменных x и n вычислить
(Паскаль)

Answer 1

$\displaystyle Y=\sum_{i=1}^{15} \frac{x^2}{i}=x^2\sum_{i=1}^{15} \frac{1}{i}$

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadReal('x=');
  var Y:=x*x*(SeqGen(15,i->1/i,1).Sum);
  Writeln(Y)
end.

Пример:
x= 10
331.822899322899