<h3>// PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := ReadReal('x=');
var n := ReadInteger('n=');
var (k, p, q, s) := (x * x, 1.0, 1.0, 0.0);
for var i := 1 to n do
begin
p *= k;
q *= 2 * i * (2 * i - 1);
s += p / q
end;
Println('Сумма =', s)
end.
1) y:=x-((sqr(x)*x)/3)+((sqr(x)*sqr(x)*x)/5);
2) z:=exp(-x*ln(2))-cos(x)+sin(2*x*y);
3) y:=(sqr(x)-7*x+10)/(sqr(x)-8*x+12);
4) y:=x-10*sin(x)+abs(sqr(x)*sqr(x)-sqr(x)*sqr(x)*x);
Зрительная информация
звуковая информация
текстовая информация