var n, k : integer; x, s : real; begin write('x = '); readln(x); write('n = '); readln(n); s := 0; for k := 1 to n do s += ((power(x,1/3)/k - exp(-k*x)) * sin(k * x)); writeln(' res = ', 1 / (x*x + sqrt(x)) * s) end.
1 votes Thanks 1
MaxLevs
Софистика - полемика, целью которой является именно победа, а не поиск истины. И использоваться там может весь сектор логических ошибок. :D
Answers & Comments
//PascalABC.NET
var
n, k : integer;
x, s : real;
begin
write('x = ');
readln(x);
write('n = ');
readln(n);
s := 0;
for k := 1 to n do
s += ((power(x,1/3)/k - exp(-k*x)) * sin(k * x));
writeln(' res = ', 1 / (x*x + sqrt(x)) * s)
end.