Ответы на вопрос:
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.
Популярно: Информатика
-
KristinaSchool13.06.2021 21:56
-
anastasiyakorc04.09.2020 00:49
-
annakrasnikova214.12.2022 18:16
-
bomjikvitaly04.05.2020 15:12
-
t12345k30.08.2022 00:32
-
aiis1730.03.2021 09:37
-
olegykoleg04.10.2021 07:37
-
rufa1207.11.2021 04:28
-
erparsian201727.03.2022 04:45
-
трнвчполт75504.07.2020 20:03