Ответы на вопрос:
Var x, a, s: real; n, i: integer; begin write('введите x и n '); readln(x, n); a : = 1; s : = a; for i : = 1 to n do begin a : = a * (-1) * x * x / (2 * i - 1) / (2 * i); s : = s + a; end; writeln('s = ', s: 10: 3); end.
Популярно: Информатика
-
nazarkooo05.07.2022 22:55
-
sakinaxalilova210.03.2020 07:42
-
3546528.04.2022 15:25
-
Lexa68RUS10.11.2022 18:15
-
Maksikar09.06.2021 11:34
-
сада203.04.2023 01:36
-
професор381402.09.2020 09:04
-
artik599076518.11.2021 05:58
-
saraavetisyan207.01.2022 17:32
-
Koshaplay5702.12.2020 05:41