Ответы
Ответ дал:
0
var
x, s: real;
i, n: integer;
begin
readln(x, n);
s := 1;
for i := 1 to n do
s := s + sin(i * x) / i;
writeln(s);
end.
//или
//PascalABC.NET 3.1 сборка 1219
begin
var x := ReadReal('x =');
Println(
Range(1, ReadInteger('n =')).
Aggregate(1.0, (s, r)-> s + sin(r * x) / r)
);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
9 лет назад